erm Project I CSC301V for following formulas TA 34 Discrete

erm Project I CSC301V for following formulas: TA 3.4 Discrete Compounding interest Faelbrsandsymbols3 Factor by Which Factor to Multiply Functional To Find: \"Given a Given: Factor Name Symbol b For single cash flows: Single payment (1 i) (F/P, i%, N) compound amount Single payment (P/F, N) present worth For uniform series (annuities) Uniform series compound amount (F/A,i%, N) Uniform series (P/A, i%, N) present worth (1+i) -1 Sinking fund (A/F, N) Capital recovery (A/P, i%, N) (1 +i)

Solution

Dim Num, n As Integer

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

Public Sub Cmd_Calculator_Click()

P = Txt_Principal.Text

Num = Txt_Num_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

sub get_vb_UniformSer(pmy,i,n)

fv = pmt*((1+i)^n-1)/i

msgbox(fv)

end sub

sub getvb_CapitalRec(P,i,n)

CapitalRec = P[i(1+n]/[1+1)n-1]

msgbox(CapitalRec)

end sub

Sub getvb_sinkfund(P,i,n)

Private Sub Cmd_Create_Click()

List_Amortization.AddItem \"n\" & vbTab & \"Periodic\" & vbTab & vbTab & \"Payment\" & vbTab & vbTab & \"Payment\" & vbTab & vbTab & \"Balance\"

List_Amortization.AddItem \"\" & vbTab & \"Payment\" & vbTab & vbTab & \"Interest\" & vbTab & vbTab & \"Principal\"

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