Funkcja WeekDay
Zwraca wartość określającą dzień tygodnia reprezentowaną przez numer kolejny daty obliczony przez funkcję DateSerial lub DateValue.
Składnia:
WeekDay (liczba)
Zwracana wartość:
Liczba całkowita
Parametry:
Liczba: Wyrażenie w postaci liczby całkowitej zawierające numer kolejny daty służące do określenia dnia tygodnia (1-7).
Poniższy przykład pozwala za pomocą funkcji WeekDay na obliczenie dnia tygodnia dla wprowadzonej daty.
Przykład:
Sub ExampleWeekDay
Dim sDay As String
' Zwraca i wyświetla dzień tygodnia
Select Case WeekDay( Now )
Case 1
sDay="Niedziela"
Case 2
sDay="Poniedziałek"
Case 3
sDay="Wtorek"
Case 4
sDay="Środa"
Case 5
sDay="Czwartek"
Case 6
sDay="Piątek"
Case 7
sDay="Sobota"
End Select
MsgBox "" + sDay,64,"Dzisiaj jest"
End Sub