Tipp 2.23 – Wochenende

Wie kann ich ermitteln, ob ein angegebenes Datum auf ein Wochenende fällt?

Mit Hilfe der Weekday-Funktion (liefert die Werte von 1 bis 7) und einen kleinen Trick (Modulo-Division) bekommen wir das ganz schnell raus. 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 IsWeekend(pdat As Date) As Boolean
 
  '// -----------------------------------------------------
  '// Methode   | Ermittelt, ob das angegebene Datum aufs
  '               Wochenende fällt
  '// -----------------------------------------------------
  '// Parameter | pdat - Datum zur Überprüfung
  '// -----------------------------------------------------
  '// Rückgabe  | Boolean, True=Wochenende
  '// -----------------------------------------------------
  '// Erstellt  | Stefan Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  '// Beispielaufruf:
  '// ?IsWeekend(now)
  '// -----------------------------------------------------
 
    IsWeekend = (Weekday(pdat) Mod 6 = 1)
 
End Function


Zurück Tipp 2.22 - Schaltjahr | Inhalt | Tipp 2.24 - Sommerzeit & Winterzeit Weiter