|
Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
Delphi 2007 Professional
|
Re: Aufrunden auf den nöchsten 5 oder 10er
12. Okt 2007, 16:24
Delphi-Quellcode:
if (Zahl mod 5) > 0 then
Zahl := (Zahl div 5 + 1) *5;
edit: verschrieben^^
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
|