Title: How to round Time to a quarter
Question: How to round Time to a quarter
Exemple 11:18:21 ---- 11:15:00
Answer:
Function Quarter(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;