Hallo,
ich habe folgende Fragestellung und habe hierzu schon einen Code entwickelt. Wäre nett wenn jemand diesen kurz prüfen könnte. Vielen Dank im Voraus.
Sub BerechneLaufzeit()
Dim kapital As Decimal
Dim zinssatz As Decimal
Dim zielkapital As Integer
Dim ergebnis_in_jahren As
Integer
kapital = txtKapital.Text
zinssatz = txtZinssatz.Text
zielkapital = txtZielkapital.Text
If zinssatz > 0 Then
Dim t_kapital As Decimal
t_kapital = kapital
While t_kapital < zielkapital
t_kapital += t_kapital * (zinssatz / 100)
ergebnis_in_jahren += 1
End While
txtErgebnis.Text = ergebnis_in_jahren
Else
MsgBox("Der Zinssatz ist kleiner Null")
End If
ich habe folgende Fragestellung und habe hierzu schon einen Code entwickelt. Wäre nett wenn jemand diesen kurz prüfen könnte. Vielen Dank im Voraus.
Sub BerechneLaufzeit()
Dim kapital As Decimal
Dim zinssatz As Decimal
Dim zielkapital As Integer
Dim ergebnis_in_jahren As
Integer
kapital = txtKapital.Text
zinssatz = txtZinssatz.Text
zielkapital = txtZielkapital.Text
If zinssatz > 0 Then
Dim t_kapital As Decimal
t_kapital = kapital
While t_kapital < zielkapital
t_kapital += t_kapital * (zinssatz / 100)
ergebnis_in_jahren += 1
End While
txtErgebnis.Text = ergebnis_in_jahren
Else
MsgBox("Der Zinssatz ist kleiner Null")
End If