|
Visual Basic 5.0/6.0 - Даты и времяВсе примеры / Даты и времяФункция проверки, является дата выходным днем или нет
Автор: Алексей Немиро | добавлено: 06.03.2010, 12:01 | просмотров: 2223 (1+) | комментариев: 0 | рейтинг:
Функция проверяет, является дата выходным днем или нет.
![]() Код'(c) Немиро Алексей 'http://hypertech.ru 'mailto:admin@hypertech.ru Public Function IsWeekend(ByVal vntDate As Variant) As Boolean Dim bResult As Boolean If IsDate(vntDate) Then If (Weekday(vntDate, vbMonday) Mod 6 = 0 Or Weekday(vntDate, vbMonday) Mod 7 = 0) Then bResult = True Else bResult = False End If Else Err.Raise 13, "Указана не корректная дата" End If IsWeekend = bResult End Function
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 286)
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 27)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|