IBM Lotus Symphony
|
Gibt aus einem seriellen Datum, das durch die Funktionen DateSerial oder DateValue erzeugt wurde, eine Zahl zurück, die einem Wochentag entspricht.
WeekDay (Zahl)
Integer
Zahl: Integer-Ausdruck, der die serielle Datumszahl enthält, aus der der Wochentag (1-7) errechnet werden soll.
Das folgende Beispielprogramm erlaubt die Eingabe eines Datums und ermittelt anschließend mithilfe der WeekDay-Funktion den Wochentag.
Sub ExampleWeekDay
Dim sDay As String
REM Wochentag ermitteln und ausgeben
Select Case WeekDay( Now )
case 1
sDay="Sonntag"
case 2
sDay="Montag"
case 3
sDay="Dienstag"
case 4
sDay="Mittwoch"
case 5
sDay="Donnerstag"
case 6
sDay="Freitag"
case 7
sDay="Samstag"
End Select
msgbox "" + sDay,64,"Heute ist"
End Sub