Zaokrúhlovanie času na štvrťhodiny.

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;
Tento článok pridal igo dňa 18.02.2003 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.