Beste,
ik ben nog student en studeer ICT ( met basis kennis )
en ik zit met een probleem
dit is de opdracht dat ik kreeg ( uit mijn cursus) en sinds mijn docent niet op mijn berichten reageer( en het is bijna examen vba) hoopte ik dat jullie mij kunnen helpen
opdracht :
(main)
-schrijf een programma dat bij het aanklikken van "berekenen" met behulp van een lus uitrekent hoeveel maanden het duurt vooraleer u lening is afbetaal.
Men dient eveneens te berekenen wat het bedrag van de laatste afbetaling is
(extra)
Men bereken iedere maand de intrest op het nog uitstaande kapitaal
Dit bedrag word afgetrokken van de maandelijkse afbetaling.
Het kapitaal wordt verminderd met dit laatste bedrag
De volgende maand doe je dezelfde berekening maar met het nieuwe kapitaal
- voorzie een controle in het begin waarbij nagekeken wordt of de intrest op het kapitaal niet groter is dan de maandelijkse afbetaling
bv.
Geleende bedrag = 100
Maandelijkse intrest = 1
maandelijkse betaling = 22
aantal maanden = 5
laatste betaling = 14,88
-----------------------
nu ik heb deze opdracht op blad uitgewerkt en het was prima maar wanneer ik het in vba plaats krijg ik niet gewenste resultaten
dit is mijn code
mijn aantal maanden is juist maar mijn laatste bedrag is fout ( - 22,00)
kan iemand mij helpen hier
ik ben nog student en studeer ICT ( met basis kennis )
en ik zit met een probleem
dit is de opdracht dat ik kreeg ( uit mijn cursus) en sinds mijn docent niet op mijn berichten reageer( en het is bijna examen vba) hoopte ik dat jullie mij kunnen helpen
opdracht :
(main)
-schrijf een programma dat bij het aanklikken van "berekenen" met behulp van een lus uitrekent hoeveel maanden het duurt vooraleer u lening is afbetaal.
Men dient eveneens te berekenen wat het bedrag van de laatste afbetaling is
(extra)
Men bereken iedere maand de intrest op het nog uitstaande kapitaal
Dit bedrag word afgetrokken van de maandelijkse afbetaling.
Het kapitaal wordt verminderd met dit laatste bedrag
De volgende maand doe je dezelfde berekening maar met het nieuwe kapitaal
- voorzie een controle in het begin waarbij nagekeken wordt of de intrest op het kapitaal niet groter is dan de maandelijkse afbetaling
bv.
Geleende bedrag = 100
Maandelijkse intrest = 1
maandelijkse betaling = 22
aantal maanden = 5
laatste betaling = 14,88
-----------------------
nu ik heb deze opdracht op blad uitgewerkt en het was prima maar wanneer ik het in vba plaats krijg ik niet gewenste resultaten
dit is mijn code
Code:
Option Explicit
Private Sub CmdBerekenen_Click()
Dim CurGeleendBerag As Currency
Dim SngManIntres As Single
Dim CurManBetaling As Currency
Dim CurLaatsteBedrag As Currency
Dim CurBetKapitaal As Currency
Dim CurRestKapitaal As Currency
Dim CurIntrest As Currency
Dim IntAantalMaanden As Integer
CurGeleendBerag = CCur(TextBox1.Text)
SngManIntres = CSng(TextBox2.Text)
CurManBetaling = CCur(TextBox3.Text)
IntAantalMaanden = 1
Do While (SngManIntres < CurManBetaling) And CurGeleendBerag > 0
CurGeleendBerag = CurGeleendBerag / 100 * SngManIntres
CurBetKapitaal = CurManBetaling - CurGeleendBerag
CurRestKapitaal = CurGeleendBerag - CurBetKapitaal
CurLaatsteBedrag = CurRestKapitaal
IntAantalMaanden = IntAantalMaanden + 1
Loop
MsgBox (IntAantalMaanden & " maand(en) , " & CurGeleendBerag & "intrest , " & _ CurBetKapitaal & " maandbet , " & CurLaatsteBedrag & "laats bedrag " & _ CurRestKapitaal & " begin ")
End Submijn aantal maanden is juist maar mijn laatste bedrag is fout ( - 22,00)
kan iemand mij helpen hier
