Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

Kapitel 2: Programmieren mit VBA

Falls die Zeichenfolge gefunden wird, erscheint sie im Textfeld markiert. Die Beschriftung der Befehls-

schaltfläche ändert sich in »Weiter« und Sie können nach weiteren Vorkommen der Zeichenkette suchen

lassen.

Untersuchen Sie auch Extremfälle (z.B. einzelne Buchstaben direkt am Anfang, Groß-/ Kleinschreibung).

Bemerkungen

■ Achten Sie auf den Sinn der Static-Variablen (siehe Seite 72)!

■ Die Anwendung der SetFocus-Methode für das Textfeld ist notwendig, weil sonst kein Zugriff auf deren

Text- und Sel-Eigenschaft(en) möglich wäre.

Zeitangaben runden

Date-Datentyp; TimerInterval-Eigenschaft; Timer-Ereignis; Round-,Time-, Format$- Funktion;

Alle Date-Variablen sind Gleitkommazahlen, deren Nachkommastellen die Zeit repräsentieren. Ein Tag

(also 24 Stunden) entspricht dem Wert 1, n Minuten entsprechen demnach dem Wert

n/(24 * 60) = n / 1440

Da man eine beliebige Zahl z durch den Ausdruck

z = Round(z/r) * r

auf den Wert r runden kann, ergibt sich eine verblüffend einfache Lösung des Problems.

Oberfläche

Auf ein Formular setzen Sie zwei attraktiv herausgeputzte Bezeichnungsfelder. Das eine soll die aktuelle Uhr-

zeit anzeigen, das andere die gerundete Uhrzeit.

Quelltext

Option Explicit

Const rundMin = 5 ' Runden auf 5 Minuten

Function roundTime As Date

roundTime = Round(Time * 1440 / rundMin) * rundMin / 1440

End Function

Private Sub Form_Load()

Me.TimerInterval = 1000 ' Sekundentakt für den Aufruf des integrierten Timers einstellen

End Sub

Private Sub Form_Timer()

Bezeichnungsfeld0.Caption = Format$(Time, "hh:mm:ss") ' Systemzeit mittels Time-Funktion holen

Bezeichnungsfeld1.Caption = Format$(roundTime, "hh:mm:ss") ' gerundete Zeit

End Sub

122