Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Aufrunden auf den nöchsten 5 oder 10er

**dominikkv**

oder

Delphi-Quellcode:

			if (((Zahl - Trunc(Zahl)) > 0) or ((Trunc(Zahl) mod 5) > 0)) then 

  Zahl := (Trunc(Zahl) div 5 + 1) * 5;

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