Einzelnen Beitrag anzeigen

manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#12

Re: Aufrunden auf den nöchsten 5 oder 10er

  Alt 12. Okt 2007, 19:37
Danke für die vielen Vorschläge von Euch allen!

Habs mit der Variante von mkinzler gelöst:
gZahl := (Trunc(Zahl) DIV <schritt> + 1) * <schritt>; Shalom
Manfred
  Mit Zitat antworten Zitat