|
Um eine Uhrzeit bzw. ein Datum mit Uhrzeit-Anteil auf eine volle Minute aufzurunden, können Sie einfach den Sekunden-Anteil streichen und eine Minute hinzuaddieren. Der Tagesanteil des Datumswertes bleibt unverändert. Ist die gegebene Zeit zufällig bereits eine volle Minute, bleibt der Wert unverändert:
Public Function FullMinutes(ByVal DateTime As Date) As Date
If Second(DateTime) Then
FullMinutes = CDate(Fix(CDbl(DateTime))) _
+ TimeSerial(Hour(DateTime), Minute(DateTime) + 1, 0)
Else
FullMinutes = DateTime
End If
End Function
Das gleiche Prinzip verwenden Sie, wenn Sie auf volle Stunden aufrunden wollen. Enthält der Zeitanteil Sekunden oder Minuten, wird der Stundenwert um 1 erhöht, während Minuten und Sekunden auf 0 gesetzt werden:
Public Function FullHours(ByVal DateTime As Date) As Date
If Second(DateTime) Or Minute(DateTime) Then
FullMinutes = CDate(Fix(CDbl(DateTime))) _
+ TimeSerial(Hour(DateTime) + 1, 0, 0)
Else
FullMinutes = DateTime
Exit Function
End If
End Function
|