Weekday

Die Funktion gibt einen Wert zurück, der einer der Konstanten der Enumeration vbDayOfWeek entspricht.

Syntax:

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

Parameter:

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

Beispiele:

Für einen Sonntag liefert die Funktion unter Verwendung der Standardeinstellung des optionalen Parameters FirstDayOfWeek den Wert 1 zurück:

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 folgendermaßen 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-2010 André Minhorst Alle Rechte vorbehalten.