WeekDay-funktion
Returnerer tallet svarende til ugedagen repræsenteret ved et serielt datotal, som genereres af DateSerial- eller DateValue-funktionen.
Syntaks:
WeekDay (Number)
Returværdi:
Integer
Parametre:
Number: Heltalsudtryk, som indeholder det serielle datotal, som bruges til at beregne ugedagen (1-7). Dag 1 er søndag.
Følgende eksempel bestemmer ugedagen ved brug af funktionen WeekDay når du indtaster en dato.
Eksempel:
Sub ExampleWeekDay
Dim sDay As String
REM Returner og vis ugedagen
Select Case WeekDay( Now )
Case 1
sDay="Søndag"
Case 2
sDay="Mandag"
Case 3
sDay="Tirsdag"
Case 4
sDay="Onsdag"
Case 5
sDay="Torsdag"
Case 6
sDay="Fredag"
Case 7
sDay="Lørdag"
End Select
Msgbox "" + sDay,64,"I dag er det"
End Sub