Kaufmännische Runden geht nicht !

[Mikkey]

Was Du willst, ist offenbar nicht "kaufmännisches Runden", sondern immer aufrunden?

Dann sollte Roundup so aussehen:

Delphi-Quellcode:

function RoundUp(X: double): double;
begin
   Result := Trunc(X);
   if Frac(X) <> 0 then
     Result := Result + 1;
end;