Zinsrechnung mal anders: Wie berechne ich denn aus einem gegebenem Startkapital, dem Endkapital und dem Zinssatz die Laufzeit, bis zum gegebenen Endkapital?

Viel wichtiger: Wie codiere ich es?

Ich habe mir nun eine Tabelle gemacht, 3 Editfenster und 2 Buttons.
Allerdings verwirrt mich schon der einfache Rechenweg: Wie würde ichs denn im Matheunterricht lösen? Sitze sicher nur auf leitung^^

Startkapital: x
Endkapital: y
Zinssatz: p
--
Aufzinsungsfaktor: q = 1+p

KapitalNachNJahren(n) := Startkapital * q^n

Fallst du Derive hast, kannst du es wie folgt lösen:

markieren

Code:

solve(Endkapital = Startkapital * q^n, n);

Ansonsten müsstest du selbst umformen und dir n ausrechnen:
Endkapital/Starkapital = q^n | log
log(Endkapital/Startkapital) = n*log(q)
log(Endkapital/Startkapital)/log(q) = n

Zitat von Aphton:

Startkapital: x
Endkapital: y
Zinssatz: p
--
Aufzinsungsfaktor: q = 1+p

KapitalNachNJahren(n) := Startkapital * q^n

Fallst du Derive hast, kannst du es wie folgt lösen:

markieren

Code:

solve(Endkapital = Startkapital * q^n, n);

Ansonsten müsstest du selbst umformen und dir n ausrechnen:
Endkapital/Starkapital = q^n | log
log(Endkapital/Startkapital) = n*log(q)
log(Endkapital/Startkapital)/log(q) = n

und die logarythmusfkt. wie drück ich die aus?

http://www.delphibasics.co.uk/RTL.asp?Name=Log10

alternativ: ln statt log

Binde die Math Unit ein!

markieren

Delphi-Quellcode:

Uses Math;

FUNCTION lZeit(gWert,eWert,pSatz:Real): Real;
var
faktor : Real;
BEGIN
 faktor := (pSatz / 100) + 1;
result := (ln(eWert) - ln(gWert)) / ln(faktor);

Müsste gehen