hallo zusammen,
ich muss so n program schreiben das mir ausrechnet wielange ich brauch um ein bestimmtes kapital bei einem bestimmtem zinssatz zu erreichen - ich hab jetzt schon soviel ausprobiert aber ich komm ned drauf - kennt sich jemand damit aus und mag mir helfen ?
Moin!
Ka=Kapital am Anfang
Ke=Kapital am Ende
z=zins ( 0,03 entspricht 3 Prozent )
a= Laufzeit ( Jahre )
Ka + a*z*Ka = Ke
umgestellt nach Laufzeit
a= ( Ke - Ka ) / (z * Ka)
Ist allerdings ohne Zinseszins
Gruß.Timo
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hallo,
die formel an sich stellt nicht das ganz grosse problem - wo ich ein problemhab ist diese formel auch in ein vba-script reinzubringen so das es auch wirkt!
gruss manuel!
hallo zusammen,
ich muss so n program schreiben das mir ausrechnet wielange
ich brauch um ein bestimmtes kapital bei einem bestimmtem
zinssatz zu erreichen - ich hab jetzt schon soviel ausprobiert
aber ich komm ned drauf - kennt sich jemand damit aus und mag
mir helfen ?Moin!
Ka=Kapital am Anfang
Ke=Kapital am Ende
z=zins ( 0,03 entspricht 3 Prozent )
a= Laufzeit ( Jahre )Ka + a*z*Ka = Ke
umgestellt nach Laufzeit
a= ( Ke - Ka ) / (z * Ka)Ist allerdings ohne Zinseszins
Gruß.Timo
Wofür soll das VBA denn sein? Excel ?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hallo,
word -
Private Sub cmdBerechnen_Click()
Dim dblKapital As Double
Dim dblJahre As Double
Dim dblZinssatz As Double
Dim dblZinsen As Double
txtKapital = dblKapital
txtJahre = dblJahre
txtZinssatz = dblZinssatz
txtZinsen = dblZinsen
If IsNumeric(txtKapital) Then
If IsNumeric(txtZinssatz) Then
If IsNumeric(txtZinsen) Then
dblJahre = (txtKapital * txtZinsen) / (txtZinssatz * txtKapital)
End If
End If
End If
End Sub
so in etwa - aber nicht funktioniert bei mir scheisse echt!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
danke danke - ich habs gefunden!
gruss manuel!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]