Kaufmännische Runden geht nicht !

[gammatester]

Zitat von Davidlocke13:

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.