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

Montag und Freitag der Woche zu einem bestimmten Datum ermitteln

Viele Anwendungen erfordern die Kenntnis des ersten und des letzten Tages der Woche, in der ein bestimmtes Datum liegt. Die nachfolgend vorgestellten Funktionen ermitteln die gesuchten Werte.

Montag der Woche

Die Funktion GetFirstDayOfWeek erwartet die Angabe eines Datums als Parameter. Sie subtrahiert jeweils einen Tag vom angegebenen Datum, bis die Funktion Weekday den Wert 2 zurckgibt, der bei Annahme des Standardwertes fr den ersten Wochentag, dem Sonntag, dem Montag entspricht.

Public Function GetFirstDayOfWeek(datDay As Date) As Date

    Do While Not Weekday(datDay) = 2

        datDay = datDay - 1

    Loop

    GetFirstDayOfWeek = datDay

End Function

Freitag der Woche

Die Funktion zur Ermittlung des letzten Tages der Woche mit dem gewnschten Datum arbeitet prinzipiell genauso wie erstgenannte Funktion. Der Unterschied ist, dass diese Funktion solange einen Tag addiert, bis der Wert der Funktion Weekday dem Freitag entspricht.

Public Function GetLastDayOfWeek(datDay As Date) As Date

    Do While Not Weekday(datDay) = 6

        datDay = datDay + 1

    Loop

    GetLastDayOfWeek = datDay

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.