Ganze Zahl immer auf nächste 50 runden?

[BBoy]

wooow. Vielen Dank für die vielen Antworten. Auch hier kann man mal wieder sagen: Es führen viele Wege nach Rom (bzw. zum Ergebnis).

Das Problem ist gelöst und ich habe wieder dazu gelernt. Welch ein schöner Tag
Danke

[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;