Rundungsfehler bei Division [gelöst]

[AlterMann]

Guten Morgen

Ich versuche gerade einen Fehler zu finden, der in einem Lohnberechnungsprogramm zu unschönen (und falschen) Centbeträgen in den Folgerechnungen führt.
Zunächst lese ich aus einer MySQL-Datenbank den Wert für den Stundenlohn ein.
Dort ist dieser als DECIMAL(6,2) gespeichert und beträgt 9,86
zs wird daraufhin 986
izs ebenfalls
und nach der Division steht in europstd 9,8599999999999994

Code: Alles auswählen

 var izs : longint;
       zs, europstd : double;
... 
...
     zs := SQLQuery1.Fields[3].AsFloat*100;
     izs := Trunc (zs);
     europstd := izs / 100;

Was mach ich da falsch?
Danke für's lesen
Christian

[af0815]

Grunlegend nichts, das ist der internen Darstellung vin Zahlen geschuldet und immer wieder ein Thema. Es lassen sich nicht alle Zahlen exakt darstellen.
Grundlegend gibt es den Datentyp Currency deswegen.

Siehe auch
viewtopic.php?f=10&t=12890&hilit=currency
viewtopic.php?f=10&t=12742&hilit=currency

[six1]

versuche es mal so:

Code: Alles auswählen

var
 zs, europstd : currency;
 izs : longint;
begin
   zs := 9.86*100;
   izs := Trunc (zs);
   europstd := izs / 100;
   label1.caption:=floattostr(europstd);
end;         

[AlterMann]

Danke ihr beiden.
Das war die Lösung

[wp_xyz]

Warum rundest du mit Trunc()? Das schneidet zs*100 = 985.9999999999999999 brual nach der "5" ab. Nimmst du stattdessen Round so wird auf 986 aufgerundet.

[AlterMann]

War vorher (und ist jetzt auch wieder) Round().

Trunc() war nur einer (von vielen) Fehlversuchen ins Blaue.

Trotzdem Danke!