Financial Calculator

Dim Num, n as Integer

Dim I,P,PVIFA,r,pmt,PI,PP As Double

Public sub cmd_Calclate_Click()

P=txtincipal.Text

Num=TextNum_payment.text

r=txt_Interest.Text

I=r/100

PVIFA=1/I-1 / (I*(1+I) ^Num)

pmt=P/PVIFA

Lbl_Amtpayment.Caption=Round(pmt,2)

End Sub

Private sub cmd_Create_Click()

List_Amortization.AddItem “n” & vbTab & “Periodic” & vbtab & vbTab & “Payment” &

vbTab & vbTab & “Payment” & vbTab & vbtab & “Balance”

List_Amortizatiob.AddItem “” & vbTab & “Payment” & vbTab & vbtab & “Interest” &

vbTab & vbTab & “Principal”

List_Amortization.AddItem

“_______________________________________________________”

Do

n=n+1

PI=P*I

PP=pmt-PI

P=P-PP

List_Amortization.AddItem n & vbTab & Round(pmt,2) & vbTab & vbTab & Round(PI,2) & vbTab & vbTab & Round(PP,2) & vbTab & vbTab & Round(P,2)

if n=Num Then

Exit Do

End If

Loop

End Sub

Private Sb cmd_Reser_Click()

Txt_Principal.Text=” ”

Txt_Interest.Text=” ”

Financial Calculator for Amortization

Txt_Num_payment.Text=” ”

Lbl_Amtpayment.Caption=” ”

List_Amortization.Clear

n=0

End sub

Private sub cmd_End()

End

End sub