IPMT 関数

倍精度浮動小数点データ型の値を返します。定額の支払いを定期的に行い、利率が一定であると仮定して、指定した投資期間に支払われる金利を返します。

構文

IPmt(rate, per,nper,pv [, fv ] [, type ] )

IPmt 関数の構文には、次の引数があります。

引数	説明
率	必須です。 期間を通じた一定の利率を指定する Double 型。 たとえば、10 パーセントの年間利率 (APR) で自動車ローンを契約し、月払いで返済を行う場合、1 か月の利率は 0.1/12 (0.0083) になります。
per	必ず指定します。 1 ~ nper の範囲の支払期間を指定する Double。
Nper	必須。 投資期間全体での支払回数の合計を指定する Double 型。 たとえば、4 年間の自動車ローンを月払いで返済する場合、このローンには合計 4 * 12 回 (48 回) の支払いが含まれます。
pv	必須。 将来の一連の支払いまたは受け取りの現在価値を表す Double 型。 たとえば、車の購入資金を借りた場合、ローン金額は、借り手が毎月行う返済の貸し手に対する現在価値です。
fv	省略可能です。 最後の支払いを行った後に残る将来価値、つまり現金の収支を指定する Variant 型。 たとえば、ローンの将来価値は、最後の支払い後の値である 0 円になります。 しかし、子供の教育費として 18 年間で 500 万円をためることを目標にした場合、将来価値は 500 万円になります。 省略した場合、0 が想定されます。
type	省略可能です。 支払いが行われる時期を指定する Variant 型。 支払いを期末に行う場合は 0 を指定し、期首に行う場合は 1 を指定します。 省略した場合、0 が想定されます。

解説

これらの関数の対象となる投資は、定額の支払いが定期的に行われることが前提になっています。 投資としては、ローン (住宅ローンなど) または本来の投資 (毎月の貯蓄プランなど) が該当します。

レートと nper 引数は、同じ単位で表される支払期間を使用して計算する必要があります。 たとえば、 レート が月を使用して計算される場合、 nper も月を使用して計算する必要があります。

すべての引数に関して、定額預金の支払いのような出金は負の数で表し、配当金のような入金は正の数で表します。

クエリの例

Expression	結果
SELECT FinancialSample.*, IPMT([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample;	テーブル "FinancialSample" からすべてのフィールドを返し、"AnnualRate" と "TermInYears" に基づいて "LoanAmount" の "per"(この例では 10) で支払われた利息を計算し、結果を列 INTPaid で表示します。

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.