Ganze Zahl immer auf nächste 50 runden?

[Mikkey]

Es gibt noch eine Möglichkeit, die ohne "Round", ohne floats und ohne Abfragen auskommt:

Delphi-Quellcode:

Function MyRound(wert: Integer): Integer
begin
    result = ((wert + 50) div 100) * 100;
end;