IBM Lotus Symphony
|
Returnerer nummeret på den ugedag, som er indeholdt i en seriel dato, der er returneret af funktionen DateSerial eller funktionen DateValue.
WeekDay (Nummer)
Heltal
Nummer: Heltalsudtryk, som indeholder det serielle datonummer, der bruges til at beregne ugedagen (1-7).
I følgende eksempel findes ugedagen vha. funktionen WeekDay, når du angiver en dato.
Sub EksempelUgedag
Dim sDag As String
REM Returner og vis ugedagen
Select Case WeekDay( Now )
Case 1
sDag="Søndag"
Case 2
sDag="Mandag"
Case 3
sDag="Tirsdag"
Case 4
sDag="Onsdag"
Case 5
sDag="Torsdag"
Case 6
sDag="Fredag"
Case 7
sDag="Lørdag"
End Select
MsgBox "" + sDag,64,"I dag er det"
End Sub