Hi
Delphi-Quellcode:
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
Differenz := 0;
provi1togo.Caption.Text := FloatToStrF(Differenz, ffCurrency, 18,2);
Nachtrag: Wegen deinem anderen Post in dem Du uns erklärst, dass dein Source nicht besonders gut ist... Entschuldige dich nicht dafür - mach ihn besser! Wenn Du Tipps brauchst, dann schick mir ne PN....