Hallo,
ich benutze seit einer Woche Delphi (Schule), bin also noch absoluter Anfänger.
Nun habe ich mir zu Hause überlegt, dass ich doch mal ein Programm zur Zinsberechnung schreiben könnte. Ich habe mir im Internet noch ein wenig Wissen dazu angelesen.
Allerdings kann das Programm nun leider nur Zinssummen richtig ausrechnen, bei denen der Zinssatz mindestens 100% beträgt
Bei anderen Zinssätzen wird als Endkapital einfach das Startkapital wieder ausgegeben.
Der Code:
Delphi-Quellcode:
procedure TForm1.btEndeClick(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Kapital, Zinssatz, Laufzeit : integer;
Endkapital : real;
begin
Kapital := StrToInt (edKapital.Text);
Zinssatz := StrToInt (edZins.Text);
Laufzeit := StrToInt (edLaufzeit.Text);
EndKapital := StrToFloat (lbKapital.Caption);
Endkapital := Kapital * (Power ( (1 + (Zinssatz div 100)), Laufzeit));
lbKapital.Caption := FloatToStr (Endkapital);
lbJahre.Caption := IntToStr (Laufzeit);
end;
Ich denke mal, dass das Problem in der Zahlenausgabe liegt, bin mir aber nicht ganz sicher...
Danke im Vorraus.