Microsoft Access Programmierrezepte

R1.25 Das Wochenende feststellen

Aufgabe

Gesucht wird eine Funktion die überprüft, ob das übergebene Datum auf ein Wochenende (Sonnabend oder Sonntag) fällt.

Lösung

Mit Hilfe der Weekday-Funktion (liefert Werte von 0...6) und eines kleinen Tricks (Modulo-Division) bekommen wir das Problem in den Griff.

Oberfläche

Ein Textfeld, zwei Bezeichnungsfelder und eine Befehlsschaltfläche genügen für den Test (siehe Laufzeitabbildung).

Quellcode

Option Explicit

Function IsWeekend(dat As Date) As Boolean
 IsWeekend = (Weekday(dat) Mod 6 = 1)
End Function

Start:

Private Sub Befehl0_Click()
 On Error GoTo fehler
 Dim d As Date, s As String
 d = CDate(Text0.Value)
 s = Format$(d, "d.mmmm yyyy")
 If IsWeekend(d) Then Bezeichnungsfeld0.Caption = "Der " & s & " ist ein Wochenende!" ...