IBM Lotus Symphony


WeekDay-Funktion [Laufzeit]

Gibt aus einem seriellen Datum, das durch die Funktionen DateSerial oder DateValue erzeugt wurde, eine Zahl zurück, die einem Wochentag entspricht.

Syntax:

WeekDay (Zahl)

Rückgabewert:

Integer

Parameter:

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.

Fehlercodes

5 Invalid procedure call

Beispiel:

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


Produktfeedback | Zusätzliche Dokumentation | Marken