IBM Lotus Symphony
|
Returnerer tallet som tilsvarer ukedagen som er representert av et serielt datonummer som er generert av DateSerial- eller DateValue-funksjonen.
WeekDay (Nummer)
Heltall
Nummer: Heltallsuttrykk som inneholder det serielle datonummeret som brukes til å beregne ukedagen (1-7).
Dette eksempelet bestemmer dagen i uken ved hjelp av WeekDay-funksjonen når du angir en dato.
Sub ExampleWeekDay
Dim sDay As String
REM Returnerer og viser ukedagen
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