IBM Lotus Symphony
|
Возвращает номер дня недели, соответствующего порядковому номеру даты, созданному функцией 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