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

定义

命名空间:
Microsoft.VisualBasic
程序集:
Microsoft.VisualBasic.Core.dll
程序集:
Microsoft.VisualBasic.dll
Source:
Financial.vb
Source:
Financial.vb
Source:
Financial.vb
Source:
Financial.vb
Source:
Financial.vb

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

public static double Pmt(double Rate, double NPer, double PV, double FV = 0, Microsoft.VisualBasic.DueDate Due = Microsoft.VisualBasic.DueDate.EndOfPeriod);
static member Pmt : double * double * double * double * Microsoft.VisualBasic.DueDate -> double
Public Function Pmt (Rate As Double, NPer 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。

NPer
Double

必填。 年金中的付款期总数。 例如，如果每月支付四年期汽车贷款，则贷款总共有 4 × 12 （或 48） 付款期。

PV
Double

必填。 将来要支付的一系列付款的现值（或总和）现在值得。 例如，当你借钱买车时，贷款金额是贷款人每月支付汽车付款的现值。

FV
Double

Optional. 完成最终付款后所需的未来价值或现金余额。 例如，贷款的未来值为 \$0，因为这是最终付款后的值。 但是，如果要在 18 年内节省 \$50,000 用于孩子的教育，则 \$50,000 是未来的价值。 如果省略，则假定为 0。

Due
DueDate

Optional. 指定付款到期时间的类型 DueDate 的对象。 如果付款在付款期结束时到期，或者DueDate.EndOfPeriod付款在期初到期，则此参数必须是DueDate.BegOfPeriod此参数。 如果省略， DueDate.EndOfPeriod 则假定为

返回

Double

基于定期、固定付款和固定利率的年金付款。

例外

ArgumentException

NPer = 0。

示例

此示例使用 Pmt 函数在固定期间返回贷款的每月付款。 给定的是每期 () APR / 12 的利率百分比、 ( () TotPmts 的付款总数、贷款 () PVal 的现值或本金、贷款 (FVal) 的未来价值，以及指示付款期开始时还是期末到期的数字 (PayType).

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

    ' Define money format.
    Dim Fmt As String = "###,###,##0.00"
    ' 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?"))
    If APR > 1 Then APR = APR / 100 ' Ensure proper form.
    TotPmts = CDbl(InputBox("How many monthly payments will you make?"))
    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
    Payment = Pmt(APR / 12, TotPmts, -PVal, FVal, PayType)

    MsgBox("Your payment will be " & Format(Payment, Fmt) & " per month.")
End Sub

注解

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

Rate必须使用以相同单位表示的付款期计算参数和NPer参数。 例如，如果使用 Rate 月份计算， NPer 则还必须使用月份计算。

对于所有论点，支付的现金（如储蓄存款）由负数表示：收到的现金（如股息检查）以正数表示。

适用于

另请参阅