Функция WeekDay
Приема серийно число, генерирано от функцията DateSerial или DateValue и връща число, съответстващо на деня от седмицата.
Синтаксис:
WeekDay (Number)
Връщана стойност:
Integer
Параметри:
Number: числов израз – серийно число на дата, за която искате да бъде изчислен денят от седмицата (1-7).
Следващият пример определя деня от седмицата чрез функцията WeekDay според въведена от вас дата.
Пример:
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