# NPer Function

**Office 2013 and later**

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation. |

Returns a Double specifying the number of periods for an annuity based on periodic, fixed payments and a fixed interest rate.

**Syntax**

**NPer( rate**,

**,**

*pmt***[,**

*pv***[,**

*fv***]]**

*type***)**

The **NPer** function has these named arguments:

Part | Description |
---|---|

| Required. |

| Required. |

| Required. |

| Optional. Variant specifying future value or cash balance you want after you've made the final payment. For example, the future value of a loan is $0 because that's its value after the final payment. However, if you want to save $50,000 over 18 years for your child's education, then $50,000 is the future value. If omitted, 0 is assumed. |

| Optional. |

**Remarks**

An annuity is a series of fixed cash payments made over a period of time. An annuity can be a loan (such as a home mortgage) or an investment (such as a monthly savings plan).

For all arguments, cash paid out (such as deposits to savings) is represented by negative numbers; cash received (such as dividend checks) is represented by positive numbers.

This example uses the **NPer** function to return the number of periods during which payments must be made to pay off a loan whose value is contained in PVal. Also provided are the interest percentage rate per period (APR / 12), the payment (Payment), the future value of the loan (FVal), and a number that indicates whether the payment is due at the beginning or end of the payment period (PayType).

Dim FVal, PVal, APR, Payment, PayType, TotPmts Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made. FVal = 0 ' Usually 0 for a loan. PVal = InputBox("How much do you want to borrow?") APR = InputBox("What is the annual percentage rate of your loan?") If APR > 1 Then APR = APR / 100 ' Ensure proper form. Payment = InputBox("How much do you want to pay each month?") PayType = MsgBox("Do you make payments at the end of month?", vbYesNo) If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType) If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1 MsgBox "It will take you " & TotPmts & " months to pay off your loan."