WeekDay Function
Возвращает число, соответствующее дню недели, представленному датой в числовом формате, созданной с помощью функции DateSerial или DateValue.
Синтаксис
WeekDay (Число)
Возвращаемое значение:
Integer
Параметры:
Число. Целое выражение, содержащее дату в числовом формате, из которой будет определен день недели (1-7).
Следующий пример показывает, как из введенной даты вычисляется день недели посредством функции WeekDay.
Пример:
Sub ExampleWeekDay
Dim sDay As String
REM Возвращение и отображение дня недели
Select Case WeekDay( Now )
Case 1
sDay="понедельник"
Case 2
sDay="вторник"
Case 3
sDay="среда"
Case 4
sDay="четверг"
Case 5
sDay="пятница"
Case 6
sDay="суббота"
Case 7
sDay="воскресенье"
End Select
msgbox "" + sDay,64,"Сегодня "
End Sub