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
|