Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Weekday

Die Funktion gibt einen Wert zurck, der einer der Konstanten der Enumeration vbDayOfWeek entspricht.

Syntax:

Weekday(<Date>, [<FirstDayOfWeek>])

Parameter:

Date (Datentyp Variant): Erwartet eine gltige Datumsangabe.
FirstDayOfWeek (Datentyp VbDayOfWeek): Erwartet eine der Konstanten der Enumeration vbDayOfWeek.

Beispiele:

Fr einen Sonntag liefert die Funktion unter Verwendung der Standardeinstellung des optionalen Parameters FirstDayOfWeek den Wert 1 zurck:

Debug.Print Weekday("23.04.2006")

  1

Die Bezeichnung des Wochentages anhand des Datums ermitteln Sie mit der folgenden Funktion. Diese macht sich die WeekDay-Funktion zu Nutze und wird folgendermaen aufgerufen:

Debug.Print Wochentag("23.04.2006")

  Sonntag

Public Function Wochentag(varDatum As Variant) As String

    Dim lngWochentag As VbDayOfWeek

    lngWochentag = weekday(varDatum)

    Wochentag = Choose(lngWochentag, "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.