PPmt 函数
应用对象
Microsoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016
返回一个 Double 类型的值，它根据定期、固定付款和固定利率指定给定年金期的本金付款。
语法
PPmt (速率，per，nper，pv [， fv ] [， type ] )
PPmt 函数语法具有以下参数：
| 参数 | 说明 |
|---|---|
| 率 | 必需。 指定每个周期的利率的双精度。 例如，如果按年率 (APR) 10% 的年率获得汽车贷款，并且每月还款，则每期的利率为 0.1/12 或 0.0083。 |
| 每 | 必需。 指定范围 1 到 nper 的付款周期的整数。 |
| nper | 必需。 指定年金中付款期总数的整数。 例如，如果按月还款四年期汽车贷款，则贷款总共有 4 * 12 (或 48) 付款期。 |
| 光伏 | 必需。 双重 指定一系列未来付款或收据的现值或当前值。 例如，当你借钱买车时，贷款金额是贷款人每月支付汽车付款的现值。 |
| 抗体 | 可选。 指定最终付款后所需的未来价值或现金余额的变体。 例如，贷款的未来值为 $0，因为这是其最终付款后的价值。 但是，如果你想在 18 年内节省 50,000 美元用于孩子的教育，那么 50,000 美元是未来价值。 如果省略，则假定为 0。 |
| 类型 | 可选。 指定付款到期时间的变体。 如果付款在付款期结束时到期，则使用 0;如果付款在付款期开始时到期，则使用 1。 如果省略，则假定为 0。 |
备注
年金是一段时间内的一系列固定现金付款。 年金可以是贷款 (，如住房抵押贷款) 或投资 (，如每月储蓄计划) 。
必须使用以相同单位表示的付款期计算 费率 和 nper 参数。 例如，如果使用月份计算 费率 ，则还必须使用月份计算 nper 。
对于所有参数，现金支付 (如存款到储蓄) 用负数表示：收到的现金 (（如股息检查) ）由正数表示。
查询示例
| Expression | 结果 |
|---|---|
| SELECT FinancialSample.*， PPMT ([AnnualRate]/12,10，[TermInYears]*12，-[LoanAmount]，0,0) AS INTPaid FROM FinancialSample; | 返回表“FinancialSample”中的所有字段，根据“AnnualRate”和“TermInYears”计算“Per” (10) “LoanAmount”支付的本金金额，并在 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