Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**gammatester**

Danke mit der Funktion geht es

Delphi-Quellcode:

			function RoundUp(X: double): double;

begin

   Result := Trunc(X);

   if Frac(X) <> 0 then

     Result := Result + 1;

Wirklich? Finde ich eigentlich nicht: roundx(-11.555,2) ergibt damit -11.54 statt -11.56.

gammatester Registriert seit: 6. Dez 2005 999 Beiträge	#10 AW: Kaufmännische Runden geht nicht ! 4. Feb 2014, 14:00 Zitat von Davidlocke13: Danke mit der Funktion geht es markieren Delphi-Quellcode: function RoundUp(X: double): double; begin Result := Trunc(X); if Frac(X) <> 0 then Result := Result + 1; Wirklich? Finde ich eigentlich nicht: roundx(-11.555,2) ergibt damit -11.54 statt -11.56.
	Zitat