hi, ich brauche dringend hilfe. hab für die uni nen tageszinsrechner erstellt. nun habe ich folgendes problem. wenn man die anlage und die gewünschte anlagezeit in monaten angibt spuckt er einem die beste bank, das endkapital und den zinssatz aus. soweit so gut. allerdings habe ich die variablen zunächst als long deklariert. da ich aber centbeträge brauche muss ich das umdeklarieren. wenn ich das aber mache spuckt er einem nurnoch das endkapital aus und rechnet nichtmehr weiter. ich weiss echt nichtmehr was ich machen soll. hoffe jemand von euch kann mir helfen. als überblick habe ich den quellcode auf eine bank vereinfacht. passiert aber das gleiche: 


'Deklaration d. Variablen 
Option Explicit 
Dim anlage As Long 
Dim monate As Byte 
Dim ergebnisBoC As Long 
Dim ergebnisCortalC As Double 
Dim ergebnis1822 As Double 
Dim ergebnisVW As Double 
Dim ergebnisING As Double 
Dim waehrung As Variant 
Dim schließen As Byte 

'Zurücksetzen alle eingebener Werte 
Private Sub Clearcmd_Click() 
Textbox1 = "" 
Textbox2 = "" 
Textbox3 = "" 
Textbox4 = "" 
Textbox5 = "" 
Textbox6 = "" 
Fremdausgabetbx = "" 
cboFremd = "" 
CheckBox1 = "" 
CheckBox2 = "" 
End Sub 



Private Sub CommandButton1_Click() 
start: 


anlage = Textbox1.Value 
monate = Textbox3.Value 









'Berechnung Bank of Scotland (BoC) 
If monate <= 12 And anlage <= 500000 Then 
ergebnisBoC = (anlage + 30) * (1 + monate / 12 * 0.022) 
End If 
If monate > 12 And monate <= 24 And anlage <= 500000 Then 
ergebnisBoC = (anlage + 30) * 1.022 * (1 + (monate - 12) / 12 * 0.022) 
End If 
If monate > 24 And monate <= 36 And anlage <= 500000 Then 
ergebnisBoC = (anlage + 30) * 1.022 * 1.022 * (1 + (monate - 24) / 12 * 0.022) 
End If 





'Berechnung Ausgabe Endkapital 


Textbox2 = ergebnisBoC 

Textbox2.Text = Format(Textbox2.Text, "currency") 


'Berechnung Ausgabe Anbieter 
If Textbox2 = ergebnisBoC Then 
Textbox4 = "Bank of Scotland" 
End If 



'Berechnung Prozente p.A. 
If Textbox2 = ergebnisBoC Then 
Textbox5 = ((ergebnisBoC / anlage) ^ (1 / (monate / 12))) - 1 
Textbox5.Text = Format(Textbox5.Text, "percent") 
End If 



'Berechnung Zinsertrag 
If Textbox2 = ergebnisBoC Then 
Textbox6 = ergebnisBoC - anlage 
Textbox6.Text = Format(Textbox6.Text, "Currency") 
End If 






End Sub