Hej
Jag ska lösa en grej och jag har kört helt fast, suttit i 2 dagar och stirrat mig blind tror jag så jag hoppas att jag kanske kan få lite hjälp på traven av någon vänlig själ. :-)

Jag ska göra en bilkalkyl där jag ska koppla Pris(textruta), Lånedel(textruta) och ränta(textruta med scrollningslista) till en kommandoknapp (Heter räkna).. Sen ska jag koppa dom till tre olika textrutor som heter Ränta/mån, Amort/mån, Brutto/mån.

Men jag fattar inte ett jota. Har provat if-satsen men det är ju fel så jag hoppas nån kan nåt mer än jag.

Annuitet eller rak ränta ?

mvh Roland

Rak ränta

Här är ett förslag hur du kan göra
Har inte testat allt men fungerar förhoppningsvis


Option Explicit

Private Sub cmdRäkna_Click()
'
Dim dblPris As Double
Dim dblLånedel As Double
Dim intÅr As Integer
Dim dblRänta As Double
Dim dblRäntaMånad As Double
Dim dblAmortMånad As Double
Dim dblBruttoMånad As Double
'
'Läs in data
dblPris = CDbl(txtPris)
dblLånedel = CDbl(txtLånedel)
intÅr = CInt(txtÅr)
dblRänta = CDbl(cmbRänta.Text)
'
'Beräkna
dblRäntaMånad = Round(dblLånedel * dblRänta / 100 / 12, 2)
dblAmortMånad = Round(dblLånedel / intÅr / 12, 2)
dblBruttoMånad = dblRäntaMånad + dblAmortMånad
'
'Presentera beräkning
txtRäntaMånad = CStr(dblRäntaMånad)
txtAmortMånad = CStr(dblAmortMånad)
txtBruttoMånad = CStr(dblBruttoMånad)
'
End Sub

Private Sub Form_Load()
'
Dim i As Single
'
For i = 1 To 15 Step 0.5
cmbRänta.AddItem CStr(i) 'Fyll combobox
Next i
'
End Sub


Hör av dig om det inte fungerar.

mvh Roland