WeekDay Function (BASIC)
Возвращает число, соответствующее дню недели, представленному датой в числовом формате, созданной с помощью функции 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