Author: Jean Claude Servaye
How to round Time to a quarter
Exemple 11:18:21 ----> 11:15:00
Answer:
1 function Quarter(T: TTime): TTime;
2 var3 H, M, S, ms: Word;
4 begin5 DecodeTime(T, H, M, S, ms);
6 M := (M div 15) * 15;
7 S := 0;
8 Result := EncodeTime(H, M, S, ms);
9 end;