Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Lemmy,
29. Apr 2014
F1 ist dein Freund...
Dann stelle alles auf Currency um (StrToCur usw.) - funktionell sind beide identisch - ich vermute hier ne Rundungsungenauigkeit von Double/Float. Deshalb Berechnungen mit Geldbeträgen besser mit Currency machen (wenn 4 Nachkommastellen ausreichen)
Grüße
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Lemmy,
29. Apr 2014
Hi
var Differenz: Currency;
....
Differenz := StrToFloat(monatsziel.Text) /100*40- StrToFloat(Umsatz.Text);
provi1togo.Caption.Text := FloatToStrF(IfThen(Differenz<0, 0, Differenz), ffCurrency, 18,2);
//Alternativ
if Differenz<0 then