Financial.NPer(Double, Double, Double, Double, DueDate) 方法

定义

命名空间:

Microsoft.VisualBasic

程序集:

Microsoft.VisualBasic.Core.dll

Source:

Financial.vb

返回一个值，该值基于等额分期付款和固定利率指定年金的期数。

public static double NPer (double Rate, double Pmt, double PV, double FV = 0, Microsoft.VisualBasic.DueDate Due = Microsoft.VisualBasic.DueDate.EndOfPeriod);

static member NPer : double * double * double * double * Microsoft.VisualBasic.DueDate -> double

Public Function NPer (Rate As Double, Pmt As Double, PV As Double, Optional FV As Double = 0, Optional Due As DueDate = Microsoft.VisualBasic.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 类型的对象指定付款何时到期。 如果在付款期末付款，则此参数必须为 DueDate.EndOfPeriod；如果在付款期初付款，则此参数必须为 DueDate.BegOfPeriod。 如果省略，则假定为 DueDate.EndOfPeriod。

返回

Double

基于等额分期付款和固定利率的年金的期数。

例外

ArgumentException

Rate = 0 和 Pmt = 0

示例

此示例使用 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

注解

年金是一段时间内的一系列固定现金付款。 年金可以是贷款 (，如住房抵押贷款) 或投资 (，如每月储蓄计划) 。

对于所有参数，支付的现金 (如存款到储蓄) 用负数表示：收到的现金 (如股息检查) 由正数表示。

另请参阅

• ArgumentException
• 财务摘要