PPmt 函数
Returns a Double specifying the principal payment for a given period of an annuity based on periodic, fixed payments and a fixed interest rate.
语法
PPmt (rate， per， nper， pv， [ fv， [ type ]])
“PPmt”函数包含以下命名参数：
| Part | 说明 |
|---|---|
| 率 | 必填。 指定每个周期的利率的 Double。 例如，如果您获得了年利率 (APR) 为 10% 的汽车贷款并进行月供，则每期利率为 0.1/12 或 0.0083。 |
| 每 | 必填。 指定范围为 1 到 nper 的付款期的整数。 |
| nper | 必填。 指定年金付款期的总数的 Integer。 例如，如果您每月偿还为期 4 年的汽车贷款，则您的贷款期总数为 4 * 12（或 48）。 |
| 光伏 | 必填。 指定一系列未来付款或回执的现值或当前值的“Double” 。 例如，当你借钱买车时，贷款金额是贷款人每月支付汽车付款的现值。 |
| 抗体 | 可选。 指定在完成最后付款后所需的未来值或现金余额的 Variant。 例如，贷款的未来值为 $0，因为这是完成最后付款后的值。 但是，如果想在 18 年内为孩子的教育节省 50,000 美元，则未来价值为 50,000 美元。 如果省略了，便假设为 0。 |
| type | 可选。 指定付款的到期时间的 Variant。 如果付款在付款期结束时到期，则使用 0；如果付款在付款期开始时到期，则使用 1。 如果省略，则假定为 0。 |
备注
年金是一段时间内一系列的固定的现金付款。 年金可以是贷款（如房产抵押），也可以是投资（如月存款计划）。
必须使用以相同单位表示的付款期计算 费率 和 nper参数 。 例如，如果使用月来计算 rate，则也必须使用月来计算 nper。
对于所有参数，已支出现金（例如，存款储蓄）用负数表示；已收现金（例如，股利支票）用正数表示。
示例
This example uses the PPmt function to calculate how much of a payment for a specific period is principal when all the payments are of equal value. 给定的是每期 (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 new line.
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 VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。