Tipp 2.13 - Erster Tag in der Woche

Wie ermittel ich den ersten Tag der aktuellen Woche?

Mit dieser Funktion können Sie den ersten Tag der aktuellen Woche ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function FirstDayCurrentWeek() As Date
  '// -----------------------------------------------------
  '// Methode:   | Ersten Tag der aktuellen Woche ermitteln
  '// -----------------------------------------------------
  '// Rückgabe:  | Datumswert (s.o.)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
 
  FirstDayCurrentWeek = Date - (Weekday(Date, vbMonday) - 1)
End Function


Zurück Tipp 2.12 - Vorheriger Arbeitstag | Inhalt | Tipp 2.14 - Erster Tag im Jahr Weiter