Variableneingabe
11.09.2006 22:02:06
Christian R
ich habe folgendes Problem: Ich möchte, dass der Tilgungssatz eingegeben werden kann, wenn einer vorhanden ist. Ansonsten soll das Programm den Wert aus den Kapital und der Laufzeit berechnen. Wenn ich es mit "If" versuche bekomme ich eine Fehlermeldung, weil in der textbox für T nichts ist.
Public
Sub Abzahlungsdarlehensberechnung()
'Deklaration
Dim K As Double, p As Double, n As Integer, T As Double, unten As Double, i As Double, ausgabe As String, Kn As Double
'EVA
K = frm_Abzahlungsdarlehen.txt_Kapital
p = frm_Abzahlungsdarlehen.txt_Zinssatz
n = frm_Abzahlungsdarlehen.txt_Laufzeit
T = frm_Abzahlungsdarlehen.txt_Tilgung
unten = 6
frm_Abzahlungsdarlehen.lst_ausgabe.Clear
If T = 0 Then
T = K / n
End If
Do While K > 0
i = i + 1
Kn = K * p / 100
K = K - T
If K < 0 Then
K = K - K
End If
frm_Abzahlungsdarlehen.lst_ausgabe.AddItem i & "." & Chr(9) & Format(K, "currency")
frm_Abzahlungsdarlehen.lst_ausgabe.AddItem i & "." & Chr(9) & Format(Kn, "currency")
Loop
End Sub