Delphi-PRAXiS
Seite 2 von 2     12   
40 Beiträge dieses Themas auf einer Seite anzeigen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Zinsberechnung (https://www.delphipraxis.net/78951-zinsberechnung.html)

Kladios 15. Okt 2006 10:32
Re: Zinsberechnung
 
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,AnzahlJahre:Integer;
var Kapital, Zinssatz:Extended;
begin
        Einzahlung:=strtoint(Startkapital.Text);
        Zinssatz:=strtofloat(Zinsen.Text);
        AnzahlJahre:=strtoint(Jahre.Text);
        for zv:= 1 to AnzahlJahre do
        Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre);
        Kontoauszug.Text:=FloatToStr(Kapital);




end;

end.
Die Anwendung startet jetzt zwar, lediglich das Ergebnis der Rechnung stimmt nicht. :-(

Klaus01 15. Okt 2006 10:48
Re: Zinsberechnung
 
Zitat:
Zitat von Kladios
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Einzahlung,zv,AnzahlJahre:Integer;
var Kapital, Zinssatz:Extended;
begin
        Einzahlung:=strtoint(Startkapital.Text);
        Zinssatz:=strtofloat(Zinsen.Text);
        AnzahlJahre:=strtoint(Jahre.Text);
       // for zv:= 1 to AnzahlJahre do
        Kapital:=Kapital*power((1+Zinssatz/100),AnzahlJahre);
        Kontoauszug.Text:=FloatToStr(Kapital);




end;

end.
Die Anwendung startet jetzt zwar, lediglich das Ergebnis der Rechnung stimmt nicht. :-(
Habe die fehlerhafte Stelle mal auskommentiert.

Grüße
Klaus

Kladios 15. Okt 2006 10:59
Re: Zinsberechnung
 
Daran lags nicht...

Fehler war Kapital:=Kapital:=Einzahlung*power((1+Zinssatz/100),AnzahlJahre)

Danke für eure Hilfe!!!


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:18 Uhr.
Seite 2 von 2     12   
40 Beiträge dieses Themas auf einer Seite anzeigen

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz