Home » Tipps & Tricks » Object Pascal » Datumswerte » Auf eine Viertel-Stunde runden
Auf eine Viertel-Stunde runden
Diese Funktion rundet die Uhrzeit auf eine Viertel-Stunde genau.Aus 15.20 Uhr wird 15.15 Uhr
Function RoundTime(T : TTime): TTime; Var H,M,S,ms : Word; begin DecodeTime(T,H,M,S,ms); M := (M div 15) * 15; S := 0; Result := EncodeTime(H,M,S,ms); end;