返回一个 Double 类型的值，它根据定期、固定付款和固定利率指定给定年金期的利息支付。
语法
IPmt ( rate， per， nper ， pv [， fv ] [， type ] )
IPmt 函数语法具有以下参数：
|
参数 |
说明 |
|
rate |
必需。 指定每个周期的利率的双精度。 例如，如果按年率 (APR) 10% 的年率获得汽车贷款，并且每月还款，则每期的利率为 0.1/12 或 0.0083。 |
|
per |
必需。 指定 1 到 nper 范围内的付款周期的双重值。 |
|
nper |
必需。 指定年金中的付款期总数的双精度值。 例如，如果按月还款四年期汽车贷款，则贷款总共有 4 * 12 (或 48) 付款期。 |
|
光伏 |
必需。 双重 指定一系列未来付款或收据的现值或当前值。 例如，当你借钱买车时，贷款金额是贷款人每月支付汽车付款的现值。 |
|
抗体 |
可选。 指定最终付款后所需的未来价值或现金余额的变体。 例如，贷款的未来值为 $0，因为这是其最终付款后的价值。 但是，如果你想在 18 年内节省 50,000 美元用于孩子的教育，那么 50,000 美元是未来价值。 如果省略，则假定为 0。 |
|
type |
可选。 指定付款到期时间的变体。 如果付款在付款期结束时到期，则使用 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, PayTypeDim Period, IntPmt, TotInt, MsgConst ENDPERIOD = 0, BEGINPERIOD = 1FVal = 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 = ENDPERIODEnd IfFor Period = 1 To TotPmts ' Total all interest. IntPmt = IPmt(APR / 12, Period, TotPmts, _ -PVal, FVal, PayType) TotInt = TotInt + IntPmtNext PeriodMsg = "You'll pay a total of " & Format(TotInt, Fmt) Msg = Msg & " in interest for this loan."MsgBox Msg ' Display results.
