der rundet dann aber die 5 zur 10 auf
die beste Methode ist
IMHO die von Apollonius:
Zahl := Ceil(Zahl/5) * 5;
Du musst allerdings noch die
Unit Math in die uses aufnehmen.
Wenn du das nicht willst kannst du meine Funktion nehmen:
Delphi-Quellcode:
if (((Zahl - Trunc(Zahl)) > 0) or ((Trunc(Zahl) mod 5) > 0)) then
Zahl := (Trunc(Zahl) div 5 + 1) * 5;
Allerdings funktioniert die nicht mit negativen Zahlen, zB -5,3