WeekDay Function (BASIC)

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: Ausdruck vom Typ Integer, 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 mit Hilfe der Funktion WeekDay den Wochentag. Der Name des Wochentags wird anschlie├čend ausgegeben.

Fehlercodes:

5 Ung├╝ltiger Prozeduraufruf

Beispiel:


Sub ExampleWeekDay
Dim sDay As String
' 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

Bitte unterst├╝tzen Sie uns!