Problem

Beim der Eingabe von krummen Zeiten wie 9:07 Uhr soll auf volle 15 Minuten gerundet werden?

Lösung

Geben Sie in einem globalen Modul zunächst die folgende Funktion ein:

Function ZeitRunden(varZeit, varRundenAuf) As Date
Dim hh As Integer, nn As Integer
Dim strZeit As String
strZeit = Format$(varZeit, "hh:nn")
hh = Val(Left$(strZeit, 2))
nn = Val(Mid$(strZeit, 4, 2))
ZeitRunden = Format(TimeSerial( _
hh, _
Int(nn / varRundenAuf + 0.5) _
* varRundenAuf, _
0), "hh:nn")
End Function

Die Einstellung für Ihr Feld „Startzeit“ ändern Sie dann auf folgenden Ausdruck:

=ZeitRunden(Jetzt();15)
=ZeitRunden(Jetzt();10) -> 00, 10, 20, 30, 40, 50
=ZeitRunden(Jetzt();30) -> 00, 30