Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Ganze Zahl immer auf nächste 50 runden?

**Darlo**

ungetestet und ggf. zu kompliziert ��

Delphi-Quellcode:

			if (x +49 mod 50) mod 2 = 0 then

   erg := (x +49 mod 50)*50

else

   erg := (x +49 mod 50)*50-50.

Darlo Registriert seit: 28. Jul 2008 Ort: München 1.196 Beiträge Delphi 10.2 Tokyo Enterprise	#2 AW: Ganze Zahl immer auf nächste 50 runden? 26. Feb 2017, 19:05 ungetestet und ggf. zu kompliziert �� markieren Delphi-Quellcode: if (x +49 mod 50) mod 2 = 0 then erg := (x +49 mod 50)50 else erg := (x +49 mod 50)50-50. Philip Geändert von Darlo (26. Feb 2017 um 19:08 Uhr)
	Zitat