AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Frage zu Zinsberechnung [N00B]

Ein Thema von Pr0gramm · begonnen am 15. Sep 2005 · letzter Beitrag vom 15. Sep 2005
 
Pr0gramm

Registriert seit: 15. Sep 2005
2 Beiträge
 
#1

Frage zu Zinsberechnung [N00B]

  Alt 15. Sep 2005, 17:41
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.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:28 Uhr.
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 by Thomas Breitkreuz