Zeit runden?

[sx2008]

Ungetestet, sollte aber gehen

Delphi-Quellcode:

function TimeFloor5Min(time:TDateTime):TDateTime;
const Min5 = 5.0 / (24.0*60.0);
begin
   Result := Trunc(time / Min5) * Min5;
end;