Auf eine Viertel-Stunde runden |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;