Функція WeekDay
Повертає число, яке відповідає дню тижня, представленому датою в числовому форматі, створеної за допомогою функції DateSerial або DateValue.
Синтаксис:
WeekDay (Число)
Значення, що повертається:
Ціле число
Параметри:
Число: цілий вираз, який містить дату в числовому форматі, з якої буде визначений день тижня (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