NPer 函数

项目
08/18/2008

更新：2007 年 11 月

返回一个 Double 数据类型值，指定定期定额支付且利率固定的年金总期数。

Function NPer( _
   ByVal Rate As Double, _
   ByVal Pmt As Double, _
   ByVal PV As Double, _
   Optional ByVal FV As Double = 0, _
   Optional ByVal Due As DueDate = DueDate.EndOfPeriod _
) As Double

参数

Rate
必选。Double 数据类型，指定各期利率。例如，如果您获得的汽车贷款的年利率 (APR) 为 10% 并实行按月偿付，则每期利率为 0.1/12，即 0.0083。
Pmt
必选。Double 数据类型，指定每期要支付的帐款。付款通常包含在年金有效期内不会更改的本金和利息。
PV
必选。Double 数据类型，指定一系列未来付款或收入的现值（即当日价值）。例如，当您贷款买汽车时，对贷方而言，贷款金额就是您按月付款总额的现值。
FV
可选。Double 数据类型，指定最终支付后期望的未来值或现金余额。例如，因为贷款未来值是最终付款之后的值，所以它为 $0。但是，如果您要在 18 年里为子女受教育积攒 50,000 元，则 50,000 元就是未来值。如果省略，则假定为 0。
Due
可选。DueDate 枚举类型对象，指定付款截止日期。该参数必须是 DueDate.EndOfPeriod（如果付款截止日期是在付款期末尾），或 DueDate.BegOfPeriod（如果付款截止日期是在付款期开始）。如果省略，则假定为 DueDate.EndOfPeriod。

异常

异常类型	错误号	条件
ArgumentException	5	Rate <= -1.
ArgumentException	5	Rate = 0 和 Pmt = 0

如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象）比较错误号。）然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。

备注

年金是一笔定期支付的固定数量现金。年金可以是一笔贷款（如住房抵押）或一笔投资（如按月储蓄计划）。

对于所有参数，支付的现金（如存款）用负数表示；收到的现金（如股息支票）用正数表示。

示例

本示例使用 NPer 函数返回必须在其期限内还清贷款（其值包含在 PVal 中）的总期数。同时假设了每期利率 (APR / 12)、付款额 (Payment)、贷款的未来值 (FVal) 以及一个用于指示付款截止时间是在付款期开始还是末尾的数字 (PayType)。

Sub TestNPer()
    Dim TotPmts As Double
    Dim PVal, APR, Payment As Double
    Dim PayType As DueDate
    Dim Response As MsgBoxResult

    ' Usually 0 for a loan.
    Dim Fval As Double = 0
    PVal = CDbl(InputBox("How much do you want to borrow?"))
    APR = CDbl(InputBox("What is the annual percentage rate of your loan?"))
    ' Usually 0 for a loan.
    If APR > 1 Then APR = APR / 100
    Payment = CDbl(InputBox("How much do you want to pay each month?"))
    Response = MsgBox("Do you make payments at the end of month?", MsgBoxStyle.YesNo)
    If Response = MsgBoxResult.No Then
        PayType = DueDate.BegOfPeriod
    Else
        PayType = DueDate.EndOfPeriod
    End If
    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.")
End Sub