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;