Plötzlich auftretenes Rundungsproblem

[Sourcemaker]

Hallo,

ich bin gestern von einem Kunden über eine Rundungsproblematik hingewiesen worden.
Das Problem tritt bei den Funktionen FormatFloat und Str auf. Eine Berechnung die im
vorliegenden Fall 9,32 EUR ergeben müsste 3,45*3/0,9=9,315 wird durch die o.g. Funktionen
als 9,31 EUR ausgegeben.
Beim Kunden trat das Problem aus verschiedenen Rechnern auf d.h. einer zeigte richtig an
ein anderer falsch so dass ich erst an die Rechner dachte dann konnte ich das Problem auch
an meinen Entwicklungsrechner provozieren. Das Problem trat zumindestens nachvollziehbar auf
nachdem das Programm über Indy eine FTP-Verbindung machte. Beim Kunden jedoch wird dieses nicht ausgeführt so das ich davon ausgehe das es noch andere Faktoren geben muß.

Hat jemand etwas ähnliches erlebt bzw. weiß jemand wie sich FormatFloat und Str in
ihren Rundungsverhalten beeinflussen lassen.

Grüße

Frank

[freak4fun]

Das könnte an den Systemeinstellungen liegen, so wie das Datum und die Währungseinheiten.

mfg
freak

[Sourcemaker]

Welche Systemeinstellung ?

Die für mich relevanten setzte ich beim Programmstart z.B.:

Delphi-Quellcode:

   Application.UpdateFormatSettings := False;
   CurrencyDecimals  := 2;
   DateSeparator     := '.';
   DecimalSeparator  := ',';
   LongDateFormat    := 'dd.mm.yyyy';
   LongTimeFormat    := 'HH:MM:SS';
   ShortDateFormat   := 'dd.mm.yy';
   ShortTimeFormat   := 'HH:MM';
   ThousandSeparator := '.';
   TimeSeparator     := ':';

Grüße

Frank

[Jelly]

Zitat:

Zitat von Sourcemaker

3,45*3/0,9=9,315

:gruebel: :gruebel:
Wie kommst du da auf 9,315?
Was hältst du von 11,5

[Luckie]

Ich will ja nichts sagen, aber ich bekomme da 11,5 raus. :roll:

[freak4fun]

Und wo steht da das bei 5 aufgerundet wird? :gruebel:

mfg
freak

[s.h.a.r.k]

Hey!

Das is ja im Prinzip egal! Interessant ist ja nur wie manche PCs auf 9.31 kommen und andere auf 9.32 - Schon mal mit der folgenden Procedure probiert: (Kenn ich halt von Delphi 7 - weiß net ob es die in Pascal auch gibt :roll: ):

Code:

i:=RoundTo(9.315, -2);

PS: Bei mir liefert das aber auch 9.31... Keine Ahnung warum! Oder du musch dir halt deine eigene Routine schreiben... Wird dir wohl nix anderes übrig bleiben - aber dann macht das auch sicher jeder Rechner gleich :???:

mfg shark

[ibp]

prozentrechnen will gelernt sein...

Code:

3,45*3*0,9=9,315=3,45*3/1,01

[Luckie]

Zitat:

RoundTo uses “Banker’s Rounding”

Wie runden denn "Bänker"?

[sakura]

Zitat:

Zitat von Luckie

Wie runden denn "Bänker"?

X = Wert in Euro,Cent

Trunc(X + 0,005) => gerundeter Wert.

...:cat:...