ich möchte ein Programm schreiben, dass den Endkapital berechnet.
1. Ich wähle ein Optionfeld aus z.B. Endkapital berechnen
2. Dann drücke ich auf die Befehlsschaltfläche "Berechnen"
3. Nun soll das Programm mir den Wert in ein Textfeld schreiben
Hier das was ich bis jetzt habe:
Private Sub CommandButton1_Click()
If OptEnd.Value = True Then
TextBox3.Value = txtAnf.Value * (1 + TextBox1.Value) ^ (TextBox2.Value)
TextBox3.Value = Round(TextBox3.Value, 2)
End If
End Sub
Als Modul definiert bis jetzt:
Function KEnde(K0 As Double, r As Double, date1 As Date, date2 As Date)
KEnde = K0 * (1 + r * (date1 - date2) / 365)
End Function
Wenn ich das ganze ausführe bekomme ich folgende Fehlermeldung:
Laufzeitfehler `13´:
Typen unverträglich.
Was mache ich falsch ?
Bitte um Hilfe. DANKESCHÖN