VBA関数のIPmt関数

IPmt関数は、VBA関数の中で財務関数に分類される関数です。

目次

• IPmt関数とは
• IPmt関数のサンプルコード
  • 実行結果
  • 解説

IPmt関数とは

IPmt関数は、倍精度浮動小数点数型 (Double) の値を返します。定額の支払いを定期的に行い、利率が一定であると仮定して、投資期間内の指定した期に支払う金利を返します。

投資とは、一連の定額の支払いを一定の期間行うことで、たとえば住宅ローンなどのローンまたは毎月の貯蓄プランなどの出資を指します。
名前付き引数 rate および nper は、時間的に同じ単位で指定する必要があります。たとえば、名前付き引数 rate を月単位で指定した場合は、名前付き引数 nper も月単位で指定します。
出金 (定額預金の支払いなど) を表す引数には負の値を指定し、入金 (配当金など) を表す引数には正の値を指定してください。

IPmt関数のサンプルコード

次の例は、IPmt 関数を使って、毎月の支払い額が同額の場合の金利を計算します。利率 (APR / 12)、金利支払い額を求める期 (Period)、支払い回数 (TotPmts)、現在価値または元金 (PVal)、将来価値 (FVal)、支払い期日 (PayType) を指定します。

Sub sample()

Dim FVal, Fmt, PVal, APR, TotPmts, PayType, Period, IntPmt, TotInt, Msg
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' 支払い期日を設定します。
FVal = 0                            ' 通常、ローンの場合は 0 を指定します。
Fmt = "###,###,##0.00"            ' 金額の形式を定義します。
PVal = InputBox("借入金額を入力してください。")
APR = InputBox("ローンの年利率を入力してください。")
If APR > 1 Then APR = APR / 100        ' 正しい形式に変換します。
TotPmts = InputBox("支払い回数を入力してください。")
PayType = MsgBox("毎月末に支払いを行いますか?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
For Period = 1 To TotPmts            ' 利息の合計。
    IntPmt = IPmt(APR / 12, Period, TotPmts, -PVal, FVal, PayType)
    TotInt = TotInt + IntPmt
Next Period
Msg = "毎月の支払い額は " & Format(TotInt, Fmt) 
Msg = Msg & " です。"
MsgBox Msg                        ' 結果を表示します。

End Sub

実行結果

解説

財務関数一覧