Функция WeekDay

Приема серийно число, генерирано от функцията DateSerial или DateValue и връща число, съответстващо на деня от седмицата.

Синтаксис:


WeekDay (Number)

Връщана стойност:

Integer

Параметри:

Number: числов израз – серийно число на дата, за която искате да бъде изчислен денят от седмицата (1-7).

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

Кодове за грешка:

5 Невалидно извикване на процедура

Пример:


Sub ExampleWeekDay
Dim sDay As String
' Връща и показва деня от седмицата
    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