Laufzeitberechnung

Programmierung: Laufzeitberechnung via InputBox, Do-Loop-Schleife
Private Sub Form_Load()
LaufzeitBerechnung
End Sub
Sub LaufzeitBerechnung()
Dim Startkapital As Currency
Dim Endkapital As Double
Dim Zinssatz As Single
Dim Jahre As Integer
Dim Button As Integer
Startkapital = InputBox("Geben Sie das Startkapital ein:")
Endkapital = InputBox("Geben Sie das Endkapital ein:")
Zinssatz = InputBox("Wie hoch ist der Zinssatz?", Default:="5,5")
Do
Startkapital = Startkapital * (1 + Zinssatz / 100)
Jahre = Jahre + 1
Loop Until Startkapital > Endkapital
MsgBox "Nach " & Jahre & " Jahren ist das Endkapital erreicht."
Button = MsgBox("Berechnung wiederholen?", Buttons:=vbOKCancel + vbQuestion)
If Button = vbOK Then
LaufzeitBerechnung
Else
Unload Me
End If
End Sub
.

Mehr Tipps: Zinssatz berechnen II

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt