PPmt 函数

返回 Double 值,指定基于定期、固定付款和固定利率的给定年金期的本金付款。

语法

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

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

参数

说明

rate

必需。 倍指定每个周期的利率。 例如,如果贷款年利率为 (APR) 10% 并按月付款,则每期利率为 0.1/12 或 0.0083。

per

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

nper

必需。 个整数,指定年金中的付款期总数。 例如,如果你每月支付一笔四年的汽车贷款,则贷款的总付款期为 4 * 12 (或 48) 期。

pv

必需。 双击 指定一系列未来付款或收据的现值或当前值。 例如,当你贷款购买汽车时,贷款金额是每月汽车付款金额的现值。

fv

可选。 指定最终付款后需要的未来值或现金余额的变体。 例如,贷款的未来值为 $0,因为这是最终付款后它的值。 但是,如果要在 18 年内节省 50,000 美元用于孩子的教育,则 50,000 美元是未来的值。 如果省略,则假定为 0。

type

可选。 指定 付款到期时间的变体。 如果付款期结束时应付款,则使用 0;如果付款在期初到期,则使用 1。 如果省略,则假定为 0。

备注

年金是一段时间的一系列固定现金付款。 年金可以是贷款 (,例如) 或 ((如每月储蓄计划)) 。

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

对于所有参数,现金支付 (例如存款到储蓄) 负数表示;现金接收 ((如) 支票)用正数表示。

查询示例

表达式

结果

SELECT FinancialSample.*, PPMT ([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample;

返回表"FinancialSample"的所有字段,根据"AnnualRate"和"TermInYears"计算此示例) 中"per" (10 中支付的主体金额,在 INTPaid 列中显示结果。

VBA 示例

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 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 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×