Werte runden

[Christian18]

Hallo,

Wie kann ich ein ergebnis auf zwei nachkomma stellen runden???

[Lefko]

Ergebnis := round(Ergebnis*100) / 100; So sollte es gehen

[shmia]

du meinst kaufmänisch runden ???
Dann mit folgenden Funktionen:

Delphi-Quellcode:

{**************************************************************************
 * NAME:    RoundUp
 * DESC:    kaufmännisches Runden
 *          Die Delphi Funktion Round() wendet das Verfahren
 *          "Bankers Rounding" an.
 *          Falls ein Zahl auf 0.5 endet wird immer die nächste
 *          geradzahlige Ganzzahl geliefert:
 *          10.5 -> 10  (abgerundet)
 *          7.5  -> 8   (aufgerundet)
 *          Der Grund dafür ist, dass bei Summierungen sich die
 *          Fehler durch die Rundung statistisch aufheben sollen.
 *
 *          RoundUp rundet dagegen bei .5 immer auf.
 *
 * PARAMS:  [-]
 * RESULT:  [-]
 * CREATED: 10-11-2003/shmia
 * CHANGED: 00-00-2003/shmia
 *************************************************************************}
function RoundUp(X: Extended): Extended;
begin
   Result := Trunc(X) + Trunc (Frac(X) * 2);
end;

{**************************************************************************
 * NAME:    RoundX
 * DESC:    kaufmännisches Runden mit Angabe der Nachkommastellen
 *          Bsp:  RoundX(1.2345678,2) ==> 1.23
 *                RoundX(1.2345678,4) ==> 1.2346
 *                RoundX(1529, -2)    ==> 1600
 * PARAMS:  Value:Extended; nk:Integer
 * RESULT:  Extended
 * CREATED: 22-01-2003/shmia
 * CHANGED:
 *************************************************************************}
function RoundX(const Value:Extended; const nk:Integer):Extended;
var
   multi: Extended;
begin
   multi := IntPower(10, nk);
   Result := RoundUp(Value*multi) / multi;
end;

[PAX]

Versuchs mal mit RoundTo(1.234, -2)

PAX

[Christian18]

OK vielen dank es hat funktioniert.

Mit freundlichen Grüßen

Christian18

[shmia]

Zitat von Christian18:

OK vielen dank es hat funktioniert.

Du hast den kleinen Unterschied zwischen kaufmänisch Runden und Banker's Rounding
aber schon verstanden und beachtet ?