В этой теме нет ответов

[Thomas]

Данная функция используется для получения дня в числовом формате (1-7) из указанной даты.
[font="verdana, geneva, sans-serif;"]Weekday(Date,[FirstDayOfWeek])[/font]
Возвращаемое значение функции
Возвращает значение типа 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 Суббота

 

Пример:
[color=#008000;]' Используем функцию для определения дня недели, соответствующего указанной дате[/color]
Dim MyDate
MyDate = "Июль 27, 1966" [color=#008000;]' Присваиваем дату[/color]
Print Weekday(MyDate,vbMonday) [color=#008000;]' возвращается 3, поскольку MyDate соответствует среде[/color]