Weekday(Date,[FirstDayOfWeek])
Функция используется для получения номера дня(между 1 и 7) из указанной даты
Возвращаемое значение: Возвращает значение типа Variant(Integer), содержащее целое число(между 1 и 7), представляющее день недели
Параметры: Функция содержит именованные аргументы
Date - Обязательный. Значение типа Variant, числовое выражение, строковое выражение или любая комбинация, позволяющая отобразить дату. Допустимый диапазоно дат-01.01.0000 до 31.12.9999. Если аргумент содержит зарезервированное слово Null, то функцией возвращает Null
Firstdayofweek - Необязательный. Константа, указывающая первый день недели. Если этот аргумент опущен, считается, что неделя начинается с воскресенья. Ниже перечислены допустимые значения аргумента FirstDayOfWeek:
- vbUseSystem = 0 - Используется значение NLS API
- vbSunday = 1 - Воскресенье (по умолчанию)
- vbMonday = 2 - Понедельник
- vbTuesday =3 - Вторник
- vbWednesday =4 - Среда
- vbThursday =5 - Четверг
- vbFriday =6 - Пятница
- vbSaturday =7 - Суббота
Возвращаемые значения Ниже перечислены значения, возвращаемые функцией Weekday:
- vbSunday =1 - Воскресенье
- vbMonday =2 - Понедельник
- vbTuesday =3 - Вторник
- vbWednesday =4 - Среда
- vbThursday =5 - Четверг
- vbFriday =6 - Пятница
- vbSaturday =7 - Суббота
Пример:
' Используем функцию для
' определения дня недели, соответствующего
' указанной дате
Dim MyDate
MyDate = "Июль 27, 1966" ' Присваиваем дату
Print Weekday(MyDate,vbMonday) ' возвращается 3, поскольку
' MyDate соответствует среде
|