Здравствуйте,я создал с помощью UserForm форму Регистрация в аэропорту.Не подскажите как прописать код в Время Вылета, чтобы вводилось время,которое укажет пользователь и дата с разлелителем, нарример 22.10.2016 12:45
Здравствуйте,я создал с помощью UserForm форму Регистрация в аэропорту.Не подскажите как прописать код в Время Вылета, чтобы вводилось время,которое укажет пользователь и дата с разлелителем, нарример 22.10.2016 12:45rubin
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] см. пример
Для вычисления даты: [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