Hallo!
Wie kann ich eine Uhrzeit auf die nächste volle halbe Stunde aufrunden? Ich habe es hiermit versucht, jedoch passiert nichts:
Datum = Date.Now
Minute = Datum.Minute
If Minute < 30 Then
Datum.AddMinutes(30 - Minute)
Else
Datum.AddMinutes(60 - Minute)
End If
Vor dieser Rechnerei war es 01.12.2020 15:05. Danach aber auch. Ich habe 01.12.2020 15:30 erwartet.
Wie kann ich eine Uhrzeit auf die nächste volle halbe Stunde aufrunden? Ich habe es hiermit versucht, jedoch passiert nichts:
Datum = Date.Now
Minute = Datum.Minute
If Minute < 30 Then
Datum.AddMinutes(30 - Minute)
Else
Datum.AddMinutes(60 - Minute)
End If
Vor dieser Rechnerei war es 01.12.2020 15:05. Danach aber auch. Ich habe 01.12.2020 15:30 erwartet.