WeekDay Function (BASIC)

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

Syntax:


WeekDay (Число)

Return value:

Integer

Parameters:

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

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

Error codes:

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

Example:


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

Please support us!