Mit der folgenden Funktion können Gleitkommawerte auf eine beliebige Stellenzahl nach dem Komma, kaufmännisch gerundet werden.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| function Runden (const Betrag: extended; const Stellen: integer): extended; var Faktor, Wert: extended; begin Faktor := IntPower (10, Stellen);
if Betrag > 0 then Wert := int (Betrag * Faktor + 0.5) else Wert := int (Betrag * Faktor - 0.5);
Wert := Wert / Faktor; Result := Wert; end; |
Einige Beispiele:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| x := Runden (19.4949, 2);
x := Runden (19.4949, 3);
x := Runden (19.4950, 2) |
Nicht vergessen: Die Funktion benötigt die Unit
Math.
_________________
Der BH ist für die Brust, der Plan ist für'n Ar...