IPmt 函數

傳回 Double，指定根據定期、固定付款和固定利率的年金指定期間的利息支付。

語法

IPmt (率，per，nper，pv [， fv ] [， 類型 ] )

IPmt 函數語法具有下列引數：

引數	描述
費率	必要。 Double 指定每期利率。 例如，如果您的汽車貸款的年利率 (APR) 是10%，並且每月付款，則每期的利率為 0.1/12 或 0.0083。
根據	必要。 Double 指定 1 到 nper 範圍內的付款期限。
NPER	必要。 Double 指定年金的付款期總數。 舉例來說，如果您按月償還為期四年的汽車貸款，那麼貸款總付款期數會是 4 * 12 (或 48)。
PV	必要。 雙重指定一系列未來付款或收據的現值或今天的價值。 例如，當您借錢購買汽車時，貸款金額是您每月支付的汽車付款給貸方的現值。
fv	可省略。 用來指定您在最後一次付款後所要的終值或現金餘額的 Variant。 例如，貸款的終值是 $0，因為這是其最終付款的值。 不過，如果您想要為您的子女儲蓄 $50,000 教育基金 (18 年)，則 $50,000 是終值。 如果沒有指定，會假設為 0。
type	可省略。 用來指定給付時點的 Variant。 如果給付時點為付款期限結束時，則使用 0；如果給付時點為期限開始時，則使用 1。 如果沒有指定，會假設為 0。

註解

年金是指一段時間內，一系列的固定現金付款活動。 年金可能是一筆貸款 (例如房屋貸款) 或投資 (例如每月存款計劃)。

rate 和 nper 引數必須使用以相同單位表示的付款週期來計算。 例如，如果 費率 是以月計算，則 nper 也必須以月來計算。

對於所有引數，付出的現金 (例如要儲蓄的存款金額) 是由負數表示；收入的現金 (例如股利支票) 是由正數表示。

查詢範例

運算式	結果
SELECT FinancialSample.*， IPMT ([AnnualRate]/12,10，[TermInYears]*12，-[LoanAmount]，0,0) AS INTPaid FROM FinancialSample;	傳回資料表 “FinancialSample” 中的所有欄位，根據 “AnnualRate” 和 “TermInYears” 計算本範例中 “per” () 10 的 “per” 10 所支付的利息，並在 INTPpaid 資料行中顯示結果。

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.