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.