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.:

markieren

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 von Sourcemaker:

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

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.

**freak4fun**

Und wo steht da das bei 5 aufgerundet wird?

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

):

markieren

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...

markieren

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 von Luckie:

Wie runden denn "Bänker"?

X = Wert in Euro,Cent

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

...

...

Plötzlich auftretenes Rundungsproblem

Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Re: Plötzlich auftretenes Rundungsproblem

Forumregeln

freak4fun Registriert seit: 22. Sep 2004 Ort: Hannover 1.807 Beiträge Delphi 10.2 Tokyo Starter	#2 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 13:20 Das könnte an den Systemeinstellungen liegen, so wie das Datum und die Währungseinheiten. mfg freak Christian IT: Schließen Sie bitte das Fenster. User: Die Tür auch? i++; // zaehler i um 1 erhoehen
	Zitat

Jelly Registriert seit: 11. Apr 2003 Ort: Moestroff (Luxemburg) 3.741 Beiträge Delphi 2007 Professional	#4 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 14:20 Zitat von Sourcemaker: 3,45*3/0,9=9,315 Wie kommst du da auf 9,315? Was hältst du von 11,5 Tom Peiffer Rema - das Releasemanagement System für Entwickler Changelog
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#5 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 14:22 Ich will ja nichts sagen, aber ich bekomme da 11,5 raus. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

freak4fun Registriert seit: 22. Sep 2004 Ort: Hannover 1.807 Beiträge Delphi 10.2 Tokyo Starter	#6 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 14:38 Und wo steht da das bei 5 aufgerundet wird? mfg freak Christian IT: Schließen Sie bitte das Fenster. User: Die Tür auch? i++; // zaehler i um 1 erhoehen
	Zitat

ibp Registriert seit: 31. Mär 2004 Ort: Frankfurt am Main 1.511 Beiträge Delphi 7 Architect	#8 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 14:43 prozentrechnen will gelernt sein... markieren Code: 3,4530,9=9,315=3,45*3/1,01
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#9 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 14:47 Zitat: RoundTo uses “Banker’s Rounding” Wie runden denn "Bänker"? Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#10 Re: Plötzlich auftretenes Rundungsproblem 15. Dez 2004, 14:49 Zitat von Luckie: Wie runden denn "Bänker"? X = Wert in Euro,Cent Trunc(X + 0,005) => gerundeter Wert. ...... Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat