Currently people seem to face a lot of difficulties to secure a loan or have problem to pay back a loan. Still, we need to borrow money every now and then to acquire an asset or to pay for education fees. So, naturally we need to find out how long we can settle a loan for a certain amount of monthly payment at a certain interest rate. It is not easy to calculate such figure, fortunately VB comes to the rescue. There is a built-in function in VB to calculate the pay back period, it is known as Nper and the syntax is
Nper(Rate,Pmt,Pv,Fv,Due)
Rate=Interest Rate
Pmt=Amount of Periodic Payment
PV=Loan taken
FV=Future Value (set to 0 if loan is settled)
Due=set to 1 if payment at the beginning of the period
set to 0 if payment at the end of the period
Private Sub Command1_Click()
Dim payment, Loan, Int_Rate As Double
Dim Num_year As Single
payment = Val(Txt_Payment.Text)
Int_Rate = (Val(Txt_Rate.Text) / 100) / 12
Loan = Val(Txt_PV.Text)
Num_year = NPer(Int_Rate, payment, -Loan, 0, 0)/ 12
Lbl_Period.Caption = Str(Int(Num_year))
End Sub
Copyright©2008 Dr.Liew Voon Kiong. All rights reserved |Contact|Privacy Policy