PPmt 函数

返回 Double 值, 指定根据定期定额支付和固定利率计算的年金在给定期间内的本金偿付额。

语法

PPmt ( rate, per, nper , pv [, fv ] [, type ] )

PPmt函数语法具有以下参数:

参数

描述

rate

必需。 指定每个期间的利率的double 。 例如, 如果您以 10% 的年百分比费率 (APR) 获得汽车贷款并按月支付, 则每期费率为 0.1/12, 即0.0083。

每天

必需。 整数, 指定从1到nper范围内的付款期。

nper

必需。 整数, 指定年金付款总期数。 例如, 如果您按月支付四年的汽车贷款, 则贷款总有 4 * 12 (即 48) 支付期。

pv

必需。 Double值, 指定一系列未来付款或收入的现值 (即当前值)。 例如, 当您借钱购买车时, 贷款金额是您将支付的每月汽车支付的当前价值。

fv

可选。 变量, 指定完成最终付款后所需的未来值或现金余额。 例如, 贷款的未来值为 $0, 因为它是最终付款后的值。 但是, 如果您希望为孩子的教育版节省18年的 $50000, 则 $50000 是未来值。 如果省略, 则假定为0。

type

可选。 用于指定付款到期时间的Variant 。 如果付款期结束时付款到期, 则使用 0, 或者在期初付款到期时使用1。 如果省略, 则假定为0。

备注

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

必须使用以相同单位表示的支付期计算费率nper参数。 例如, 如果rate使用月份计算, 则nper也必须使用月份计算。

对于所有参数, 支付的现金 (如储蓄金额) 用负数表示;收到的现金 (如股利支票) 用正数表示。

查询示例

表达式

结果

选择 FinancialSample、PPMT ([AnnualRate]/12, 10, [TermInYears] * 12,-[LoanAmount], 0, 0) 作为 INTPaid 从 FinancialSample;

返回表 "FinancialSample" 中的所有字段, 根据 "AnnualRate" 和 "TermInYears" 计算 "LoanAmount" 的 "每" (本示例中为10个) 的本金数额, 并在列 INTPaid 中显示结果。

VBA 示例

注意: 下面的示例演示了在 Visual Basic for Applications (VBA) 模块中使用此函数的示例。 有关使用 VBA 的详细信息, 请在 "搜索" 旁边的下拉列表中选择 "开发人员引用", 然后在搜索框中输入一个或多个字词。

此示例使用PPmt函数计算当所有付款均为等额付款时, 特定期间的付款金额是本金。 给定的是每个周期的利率 (APR / 12)、需要主体部分的支付期 (Period)、付款总数 (TotPmts)、贷款的现值 (PVal)、贷款的未来价值 (FVal) 和一个数字 指示付款的开始或结束日期 (PayType)。

Dim NL, TB, Fmt, FVal, PVal, APR, TotPmts, PayType, Payment, Msg, MakeChart, Period, P, I
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.
NL = Chr(13) & Chr(10) ' Define newline.
TB = Chr(9) ' Define tab.
Fmt = "###,###,##0.00" ' Define money format.
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.
TotPmts = InputBox("How many monthly payments do you have to make?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
Payment = Abs(-Pmt(APR / 12, TotPmts, PVal, FVal, PayType))
Msg = "Your monthly payment is " & Format(Payment, Fmt) & ". "
Msg = Msg & "Would you like a breakdown of your principal and "
Msg = Msg & "interest per period?"
MakeChart = MsgBox(Msg, vbYesNo) ' See if chart is desired.
If MakeChart <> vbNo Then
If TotPmts > 12 Then MsgBox "Only first year will be shown."
Msg = "Month Payment Principal Interest" & NL
For Period = 1 To TotPmts
If Period > 12 Then Exit For ' Show only first 12.
P = PPmt(APR / 12, Period, TotPmts, -PVal, FVal, PayType)
P = (Int((P + .005) * 100) / 100) ' Round principal.
I = Payment - P
I = (Int((I + .005) * 100) / 100) ' Round interest.
Msg = Msg & Period & TB & Format(Payment, Fmt)
Msg = Msg & TB & Format(P, Fmt) & TB & Format(I, Fmt) & NL
Next Period
MsgBox Msg ' Display amortization table.
End If

注意:  本页面是自动翻译的,可能包含语法错误或不准确之处。 我们的目的是使此内容能对你有所帮助。 能否告知我们此信息是否有所帮助? 下面是该参考内容的英文版

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划