Ganze Zahl immer auf nächste 50 runden?

[Uwe Raabe]

In System.Math gibt es auch eine Funktion RoundTo , mit der das ebenfalls recht einfach realisiert werden kann. Runden auf ganze 100er ginge dann so:

Delphi-Quellcode:

function RundenAufHundert(const Wert: Integer): Integer;
begin
  Result := RoundTo(Wert, 2);
end;