Ganze Zahl immer auf nächste 50 runden?

[DeddyH]

Ich verstehe das Beispiel nicht. Willst Du wirklich auf 50 runden oder doch eher auf 100?

[edit] Falls Letzteres, aus dem Hut und ungetestet:

Delphi-Quellcode:

if Zahl mod 100 < 50 then
  Zahl := Zahl div 100 * 100
else 
  Zahl := Succ(Zahl div 100) * 100;

[/edit]