Microsoft Office Access 2007-Programmierung - Das Handbuch

Test

Links sehen Sie die aktuelle Systemzeit und rechts den auf fünf Minuten gerundeten Wert.

Abbildung 2.18 Das Programm in Aktion

Bemerkungen

■ Ändern Sie den Rundungsbereich durch Wahl einer anderen Konstanten rundMin.

■ Den universellen Charakter der Lösung erkennen Sie auch daran, dass Sie anstatt der Time-Funktion

auch die Now-Funktion einsetzen können.

Das Wochenende feststellen

TextBox-Objekt: Change-Ereignis; Weekday-, CDate-, Format-Funktion; Date-Variable; Mod-Operator;

benutzerdefinierte Funktionen; Datumsformatierung; Fehlerbehandlung;

In vielen Fällen will man einfach nur wissen, ob ein bestimmtes Datum auf ein Wochenende (Sonnabend,

Sonntag) fällt. Die im Folgenden demonstrierte Lösung ermittelt zusätzlich noch den genauen Wochentag.

Oberfläche

Auf das Testformular setzen Sie ein ungebundenes Textfeld für die Datumseingabe sowie zwei Bezeich-

nungsfelder (siehe Laufzeitansicht).

Quelltext

Option Explicit

Herzstück des Programms ist eine »selbst gebastelte« Funktion, die trickreich die

Weekday

-Funktion (liefert

Werte von 0...6) auswertet:

Function IsWeekend(dat As Date) As Boolean

IsWeekend = (Weekday(dat) Mod 6 = 1)

End Function

Sobald sich der Inhalt des Textfeldes aufgrund einer Benutzereingabe geändert hat, wird das

Change

-Event

für das Textfeld ausgelöst:

Private Sub Text0_Change()

On Error GoTo fehler

Dim d As Date, s As String

d = CDate(Text0.Text)

s = Format$(d, "d.mmmm yyyy")

If IsWeekend(d) Then

123

Praxisbeispiele