Excel VBA offers a number of financial functions that can be used for accounting and financial calculations. In this lesson, we shall deal with PV, FV and Pmt functions.

PV returns the present value of an amount of money a person needs to invest in order to earn a certain amount of money in the future(future value), based on the interest rate and the number of years this amount of money is kept. Additionally, it can also return the present value of an annuity which means the present value of a series of payments in the future.

The syntax of PV is

PV(Rate, Nper, Pmt, FV, Due)

The parameters in the parentheses are explained below:

Rate - Interest rate per period Nper - Number of payment periods Pmt - Amount of periodic payment for an annuity FV - Future value Due - Indicates when the payment is due. Its value is 1 for beginning of month and 0 for end of the month

Do you know how much you need to invest today and how much you need to save monthly in order to obtain $1,000,000 thirty years from now? Let'assume a fixed deposit interest rate is 4% per annum and you are willing to save $100 monthly in the bank, you can write the following Excel VBA code to find out the initial investment you need to fork out.

Private Sub CommandButton1_Click() Dim TheRate, FuVal, Payment As Single Dim NPeriod As Integer TheRate = InputBox("Enter the rate per annum") FuVal = InputBox("Enter future value") Payment = -InputBox("Enter amount of monthly payment") NPeriod = InputBox("Enter number of years") MsgBox ("The Initial Investment is " & Round(PV(TheRate / 12 / 100, NPeriod * 12, Payment, FuVal, 1), 2)) End Sub

Running the program will produce a series of input boxes where the user can enter various values. The answer is shown in Figure 10.1. The value is negative because this is the amount you need to pay.

FV returns the amount of money you will earn in future by putting in an initital investment and continue to pay certain amount periodically. This amount is depending on the interest rate and the duration. It reflects time value of money.

The syntax of FV in Excel VBA is

FV(Rate, Nper, Pmt, PV, Due)

In this example, you want to find the future value if your initial investment is $100,000, your monthly payment is $100, interest rate 5% and the investment period is 30 years

Private Sub CommandButton1_Click() Dim TheRate, PVal, Payment As Single Dim NPeriod As Integer TheRate = InputBox("Enter the rate per annum") PVal = InputBox("Enter initial investment amount) Payment = -InputBox("Enter amount of monthly payment") NPeriod = InputBox("Enter number of years") MsgBox ("The Initial Investment is " & Round(FV(TheRate / 12 / 100, NPeriod * 12, -Payment, -PVal, 0), 2)) End Sub

We place negative signs infront of payment and Pval as you are paying out the money. Running the program will produce a series of input boxes where the user can enter various values. The answer is shown in Figure 10.2. .

Pmt is an Excel VBA function that returns the amount of periodic payments you need to make for a certain PV and FV.

The syntax of Pmt in Excel VBA is

Pmt(Rate,Nper, PV, FV, Due)

For example, you borrowed a mortgage loan of 500,000 from the bank to buy a property. You have agreed to pay back the loan in thirty years by a monthly instalment method at an interest rate of 4% per annum. Now you need to calculate the the amount of monthly payment. In this case, Rate=4/100/12 (monthly rate), Nper=30x12=360 months,PV=500,000, FV=0 (loan settled) and due=0 as you normally paying at end of the month.

Private Sub CommandButton1_Click() Dim TheRate, PVal As Single Dim NPeriod As Integer TheRate = InputBox("Enter the rate per annum") PVal = InputBox("Enter Loan Amount") NPeriod = InputBox("Enter number of years") MsgBox ("The monthly payment is " & Round(Pmt(TheRate / 12 / 100, NPeriod * 12, Pval, 0, 0), 2)) End Sub

Running the program will produce a series of input boxes where the user can enter various values. The answer is shown in Figure 10.3. .The value is negative because this is the amount you need to pay

*Copyright ® 2008** *Dr.Liew Voon Kiong* . *All rights reserved
[Privacy Policy]

*Contact: *Facebook Page