Zeit runden?

[API]

Ich habe es nun so gemacht. Vielleicht gibt es eine einfachere Möglichkeit?

Delphi-Quellcode:

procedure RoundDownTo5Min(var h, m: Word);
begin
  m := 5 * Trunc((m - 2.5) / 5.0);
  if m = 60 then
  begin
    Inc(h);
    m := 0;
  end;
end; 

DecodeDateTime(Now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
RoundDownTo5Min(AHour, AMinute);
ATime := EncodeDatetime(AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
label1.Caption := FormatDateTime('dd.mm.yyyy hh:mm', ATime));

Edit: Danke Achim, werde deinen Code noch ausprobieren