Uhrzeit auf volle Minuten (ab)runden

[Iwo Asnet]

Delphi-Quellcode:

Function RoundToMinute(aTime : TDateTime) : TDatetime;
Begin
  Result := Trunc(aTime*3600 + 0.5)/ 3600;
End;