Zinssatz berechnen I

Zinssatz berechnen. Programmierung via InputBox, MsgBox, Me.Print
Private Sub Form_Load() Leitet eine Prozedur mit Namen Form_Load ein.
ZinsBerechnung Hier wird die Prozedur ZinsBerechnung ausgeführt.
End Sub
Sub ZinsBerechnung() Gibt man keinen Datentyp an, wird automatisch
Dim Kapital, Zinssatz, Laufzeit, Jahre Variant deklariert.
Me.AutoRedraw = True Die Ausgabe erfolgt in der Innenfläche des Formulars.
Kapital1:
Kapital = InputBox("Geben Sie das Anfangskapital ein:") Nachfolgende Deklarationen wurden deaktiviert, weil
If Kapital = "" Then diese nicht mit GoTo-Befehlen funktionieren:
MsgBox "Bitte Kapital eingeben!", _ Dim Kapital As Currency
Buttons:=vbExclamation
GoTo Kapital1 Dim Zinssatz As Single
End If Dim Laufzeit As Integer
Zins1: Dim Jahre As Integer
Zinssatz = InputBox("Wie hoch ist der Zinssatz?", Default:="5,5")
If Zinssatz = "" Then
MsgBox "Bitte Zinssatz eingeben!", Buttons:=vbExclamation, Title:="Falsche Eingabe!"
GoTo Zins1
End If
Lauf1:
Laufzeit = InputBox("Wie viele Jahre ist die Laufzeit?", Default:="10")
If Laufzeit = "" Then
MsgBox "Bitte Laufzeit eingeben!", Buttons:=vbExclamation, Title:="Falsche Eingabe!"
GoTo Lauf1
End If
Me.Print Tab(5); "Z i n s B e r e c h n u n g"
Me.Print Tab(5); "==================="
Me.Print Tab(5); "Kapital = " & Kapital; " DM; Zinssatz = " & Zinssatz; " Prozent; Laufzeit = " & Laufzeit; " Jahre"
Me.Print ""
Me.Print Tab(5); "Ihr Vermögen beträgt"
For Jahre = 1 To Laufzeit Leitet eine Programmschleife ein.
Kapital = Kapital * (1 + Zinssatz / 100)
Me.Print Tab(5); "nach dem "; Jahre; ". Jahr"; Tab(35); Format(Kapital, "Currency")
Next Beendet die Programmschleife.
End Sub Beendet die Prozedur.
Möchte man eine neue Berechnung durchführen, müsste man das Programm beenden und neu starten.
Dies lässt sich wie folgt umgehen:
Sub Form_Click()
Dim Antwort As Integer
Antwort = MsgBox("Berechnung wiederholen?", Buttons:=vbQuestion + vbYesNo)
If Antwort = vbYes Then Alternativ kann man wählen:
Me.Cls If Antwort = vbYes Then
ZinsBerechnung Unload Me
Else Me.Show
Unload Me
End If
End Sub

Mehr Tipps: Laufzeitberechnung

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