Runden und Currency

[Mario]

Hallo,

ich habe folgenden Test mit Currency (Delphi 7) gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var cur: Currency;
begin
  cur := 2000.5; // -> Ausgabe 2000 EUR
  ShowMessage(CurrToStrF(cur, ffCurrency, 0));

  cur := 1.5; // -> Ausgabe 2 EUR
  ShowMessage(CurrToStrF(cur, ffCurrency, 0));
end;

Einmal wird auf und einmal abgerundet? Habe ich hier einen Denkfehler oder ist es ein Fehler in Delphi?

[neolithos]

Delphi rundet Kaufmännisch!

bei 0.5

ungerade Zahlen -> aufrunden
gerade Zahlen -> abrunden

Addiere die 2000.5 bzw. 1.5 mit 0.05 und schon rundet Delphi richtig

[Mario]

Oh danke, dass erklärt natürlich einiges.

Gibt es auch Delphi-Funktionen, die normal runden? Der Workaround ist zwar eine Lösung, aber ich nutze gern gekapselte fertige Funktionen.

[shmia]

Zitat:

Zitat von Mario

Einmal wird auf und einmal abgerundet? Habe ich hier einen Denkfehler oder ist es ein Fehler in Delphi?

Delphi verwendet "Banker's rounding". Die Auf- und Abrundungen sollen sich in der Masse gegenseitig aufheben.
Kaufmännisches Runden geht so:

Delphi-Quellcode:

function CommercialRound(const X: Float): Int64;
begin
  Result := Trunc(X);
  if Frac(Abs(X)) >= 0.5 then
    Result := Result + Sgn(X);
end;

[ibp]

schreib dir selber eine, oder ...

Delphi-Quellcode:

gerundetezahl:=trunc(zahl+0.5)