kaufmännisch auf 0,5 oder 1 runden

[Marc.]

Hi juergen!
Was hälst Du denn von einer simplen If-Abfrage?

Delphi-Quellcode:

function myround(z: real): real;
var r: real;
begin
   r := frac(z);

   if (r >= 0.25) and (r < 0.75) then result := trunc(z) + 0.5 else
   if (r >= 0.75)                then result := trunc(z) + 1   else
                                      result := trunc(z);
end;

Cheers,
Marc

[edit] Funktion korrigiert [/edit]