IPmt 函数
应用对象
Microsoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016
返回一个 Double 类型的值，它根据定期、固定付款和固定利率指定给定年金期的利息支付。
语法
IPmt (速率，per，nper，pv [， fv ] [， type ] )
IPmt 函数语法具有以下参数：
| 参数 | 说明 |
|---|---|
| 率 | 必需。 指定每个周期的利率的双精度。 例如，如果按年率 (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.*， IPMT ([AnnualRate]/12,10，[TermInYears]*12，-[LoanAmount]，0,0) AS INTPaid FROM FinancialSample; | 返回表“FinancialSample”中的所有字段，计算本示例中“per” (10 支付的利息，) 基于“AnnualRate”和“TermInYears”的“LoanAmount”，并在 INTPaid 列中显示结果。 |
VBA 示例
注意
下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在搜索旁边的下拉列表中选择“开发人员参考”，并在搜索框中输入一个或多个术语。
此示例使用 IPmt 函数计算当所有付款值相等时付款的利息金额。 给定的是每期 (APR / 12) 的利率百分比， 需要利息部分的付款期 () Period 、 () TotPmts 的付款总数、贷款 () PVal 的现值或本金、贷款 (FVal) 的未来价值，以及指示付款期开始还是期末到期 (PayType) 的数字。
Dim FVal, Fmt, PVal, APR, TotPmts, PayType
Dim Period, IntPmt, TotInt, Msg
Const ENDPERIOD = 0, BEGINPERIOD = 1
FVal = 0 ' Usually 0 for a loan.
Fmt = "###,###,##0.00" ' Define money format.
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?")
PayType = MsgBox("Do you make payments at " & _
"the end of the month?", vbYesNo)
If PayType = vbNo Then
PayType = BEGINPERIOD
Else PayType = ENDPERIOD
End If
For Period = 1 To TotPmts ' Total all interest.
IntPmt = IPmt(APR / 12, Period, TotPmts, _
-PVal, FVal, PayType)
TotInt = TotInt + IntPmt
Next Period
Msg = "You'll pay a total of " & Format(TotInt, Fmt)
Msg = Msg & " in interest for this loan."
MsgBox Msg ' Display results.