Hallo zusammen,
mich wundert es, dass 17,88 EUR - 17,88 EUR = 1,77635683940025E-15 sind.
Naja, vllt. mal eine kurze Beschreibung zum Problem...
Ich habe 2 Felder:
Tabelle 1: Invoice
teilzahlung (double 10,2)
Tabelle 2: Invoicepositions
summe (double 10,2)
Die Rechnung setzt sich aus 2 Positionen (Tabelle 2) zusammen...
Summe 1: 11,88 EUR
Summe 2: 6,00 EUR
Die Summe ergiebt im Programm erstaunlicherweise auch 17,88 EUR
Wenn ich allerdings die Teilzahlung von 17,88 EUR aus Tabelle eins von der Summe aus Tabelle 2 abziehe,
kommt das raus: 1,77635683940025E-15
Habt Ihr eine Erklärung dafür ?
Hier ist der Code....
Delphi-Quellcode:
posumme := 0;
for i := 1 to DataModule1.RechnungDB.RecordCount do begin
DataModule1.RechnungDB.RecNo := i;
DataModule1.Rechnungspositionen.SQL.Text := 'SELECT * FROM invoicepositions WHERE rechnungsid=' + QuotedStr(DataModule1.RechnungDB.Fieldbyname('rechnungsid').AsString);
DataModule1.Rechnungspositionen.Open;
tempposumme := 0;
for z := 1 to DataModule1.Rechnungspositionen.RecordCount do begin
DataModule1.Rechnungspositionen.RecNo := z;
tempposumme := tempposumme + DataModule1.Rechnungspositionen.Fieldbyname('Summe').AsFloat;
end;
posumme := posumme + tempposumme;
offen := posumme - DataModule1.RechnungDB.Fieldbyname('Teilzahlung').AsFloat;
end;
Ich hoffe, ich konnte das Problem einigermaßen gut Erklären, ich habe jedenfalls keine Erklärung für diese Zauberei,
zumal die einzelnen BEträge alle Sinngemäß per showmessage ausgegeben werden.
Nach dem Subtrahieren allerdings nicht mehr....
Jemand eine Idee woran das liegen könnte ?
Gruß
MasterBasti