kaufmännisch runden

[Uwe Raabe]

Zitat von himitsu:

Delphi-Quellcode:

  resz := FloatToCurr(x);
  resz := RoundX(resz, 2); 

  // dürfte eigentlich Folgendem entsprechen

  resz := RoundX(resz, 4);  // FloatToCurr(x);
  resz := RoundX(resz, 2);

Nicht ganz:

Delphi-Quellcode:

  resz := RoundX(x, 4);  // FloatToCurr(x);
  resz := RoundX(resz, 2);

kommt eher hin.