Zinseszins-Berechnung

[Amateurprofi]

Zitat von Sir Rufo:

Einen Mehrwert würde es aber bringen, wenn du deinen Code in eine Funktion auslagern würdest:

Delphi-Quellcode:

function ZinsesZinsBerechnungLaufzeit( const StartKapital, ZinsSatz, ZielKapital: Currency ) : Integer;
var
  AktuellesKapital: Currency;
  Laufzeit: Integer;
begin
  AktuellesKapital := StartKapital;
  Laufzeit := 0;
  while AktuellesKapital < ZielKapital do
  begin
    AktuellesKapital := AktuellesKapital + ( AktuellesKapital * Zinssatz ) / 100;
    Inc( Laufzeit );
  end;
  Result := Laufzeit;
end;

Probier das mal mit StartKapital = 0.01 und Zinssatz=0.1;
Beides Werte die durchaus vorkommen können.

Um eine Endlosschleife zu vermeiden, sollte geprüft werden, ob die Zinsen = 0 sind.
Weiterhin sollten die angefallenen Zinsen auf 2 Stellen gerundet werden, denn Banken schreiben keine Zinsen gut, wenn der (gerundete) Zinsertrag < 1 Cent ist.