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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s