IBM Lotus Symphony
|
Zwraca liczbę oznaczającą dzień tygodnia na podstawie numeru seryjnego daty wygenerowanego przez funkcję DateSerial lub DateValue.
WeekDay (Liczba)
Liczba całkowita
Liczba: Wyrażenie liczbowe zawierające datownik, na podstawie którego ma zostać określony dzień tygodnia (od 1 do 7).
Poniższy przykład określa dzień tygodnia dla wprowadzonej daty za pomocą funkcji WeekDay.
Sub Przyklad_WeekDay
Dim sDay As String
REM Zwróć i wyświetl 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,"Dziś jest"
End Sub