Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ввод даты и времени пользователем в форму - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод даты и времени пользователем в форму (Макросы/Sub)
Ввод даты и времени пользователем в форму
rubin Дата: Четверг, 17.11.2016, 10:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте,я создал с помощью UserForm форму Регистрация в аэропорту.Не подскажите как прописать код в Время Вылета, чтобы вводилось время,которое укажет пользователь и дата с разлелителем, нарример 22.10.2016 12:45
К сообщению приложен файл: 1256536.xlsm(19Kb)
 
Ответить
СообщениеЗдравствуйте,я создал с помощью UserForm форму Регистрация в аэропорту.Не подскажите как прописать код в Время Вылета, чтобы вводилось время,которое укажет пользователь и дата с разлелителем, нарример 22.10.2016 12:45

Автор - rubin
Дата добавления - 17.11.2016 в 10:43
SLAVICK Дата: Четверг, 17.11.2016, 11:39 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1836
Репутация: 613 ±
Замечаний: 0% ±

2007,2010,2013,2016
Для вычисления даты:
[vba]
Код
Private Function dateByDay(dayName$) As Date
Dim d As Object, i%, date_ As Date, arr()
    Set d = CreateObject("scripting.dictionary")
    dayName$ = LCase(dayName$)
    arr = Array("Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота", "Воскресенье")
    For i = 0 To 6: d(LCase(arr(i))) = i: Next
    dateByDay = Date + IIf(d(dayName) >= d(Format(Date, "DDDD")), d(dayName) - d(Format(Date, "DDDD")), 7 - d(Format(Date, "DDDD")) + d(dayName))
End Function
[/vba]
см. пример
К сообщению приложен файл: 5854393.xlsm(29Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеДля вычисления даты:
[vba]
Код
Private Function dateByDay(dayName$) As Date
Dim d As Object, i%, date_ As Date, arr()
    Set d = CreateObject("scripting.dictionary")
    dayName$ = LCase(dayName$)
    arr = Array("Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота", "Воскресенье")
    For i = 0 To 6: d(LCase(arr(i))) = i: Next
    dateByDay = Date + IIf(d(dayName) >= d(Format(Date, "DDDD")), d(dayName) - d(Format(Date, "DDDD")), 7 - d(Format(Date, "DDDD")) + d(dayName))
End Function
[/vba]
см. пример

Автор - SLAVICK
Дата добавления - 17.11.2016 в 11:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод даты и времени пользователем в форму (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!