WeekDay Function

Возвращает число, соответствующее дню недели, представленному датой в числовом формате, созданной с помощью функции DateSerial или DateValue.

Синтаксис

WeekDay (Число)

Возвращаемое значение:

Integer

Параметры:

Число. Целое выражение, содержащее дату в числовом формате, из которой будет определен день недели (1-7).

Следующий пример показывает, как из введенной даты вычисляется день недели посредством функции WeekDay.

Error codes:

5 Неправильный вызов процедуры

Пример:

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