定期的な固定支払いと固定金利に基づいて、年金の期間数を指定する Double を返します。
構文
NPer ( rate, pmt, pv [, fv ] [, type ] )
NPer 関数の構文には、次の引数があります。
|
引数 |
説明 |
|
rate |
必須です。 期間を通じた一定の利率を指定する Double 型。 たとえば、10 パーセントの年間利率 (APR) で自動車ローンを契約し、月払いで返済を行う場合、1 か月の利率は 0.1/12 (0.0083) になります。 |
|
pmt |
必須です。 毎回の支払額を指定する Double 型。 支払額には通常、投資期間内に変化しない元金額と利息が含まれます。 |
|
PV |
必須。 将来の一連の支払いまたは受け取りの現在価値を表す Double 型。 たとえば、車の購入資金を借りた場合、ローン金額は、借り手が毎月行う返済の貸し手に対する現在価値です。 |
|
fv |
省略可能です。 最後の支払いを行った後に残る将来価値、つまり現金の収支を指定する Variant 型。 たとえば、ローンの将来価値は、最後の支払い後の値である 0 円になります。 しかし、子供の教育費として 18 年間で 500 万円をためることを目標にした場合、将来価値は 500 万円になります。 省略した場合、0 が想定されます。 |
|
type |
省略可能です。 支払いが行われる時期を指定する Variant 型。 支払いを期末に行う場合は 0 を指定し、期首に行う場合は 1 を指定します。 省略した場合、0 が想定されます。 |
解説
これらの関数の対象となる投資は、定額の支払いが定期的に行われることが前提になっています。 投資としては、ローン (住宅ローンなど) または本来の投資 (毎月の貯蓄プランなど) が該当します。
すべての引数に関して、定額預金の支払いのような出金は負の数で表し、配当金のような入金は正の数で表します。
クエリの例
|
式 |
結果 |
|
SELECT FinancialSample.*, INT(NPER([AnnualRate]/12,-[MonthlyRePayment],[LoanAmount],0,0)) AS MonthsRequired FROM FinancialSample; |
テーブル "FinancialSample" からすべてのフィールドを返し、"AnnualRate" と "MonthlyRePayment" に基づいて "LoanAmount" の支払いに必要な期間数 (この例では月数) を計算し、結果を列 MonthsRequired に表示します。 INT 関数は、"Double" データ出力を整数値に変換するために使用されます。 |
VBA の例
注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。
この例では、 NPer 関数を使用して、 PValに含まれるローンを返済するために支払いを行う必要がある期間の数を返します。 また、期間あたりの利率 (APR / 12)、支払 (Payment)、ローンの将来価値 (FVal)、支払期日が支払期間の開始時または終了時 (PayType) かどうかを示す数値も指定されます。
Dim FVal, PVal, APR, Payment, PayType, TotPmts
' When payments are made.
Const ENDPERIOD = 0, BEGINPERIOD = 1
FVal = 0 ' Usually 0 for a loan.
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.
Payment = InputBox("How much do you " & _
"want to pay each month?")
PayType = MsgBox("Do you make payments " & _
"at the end of month?", vbYesNo)
If PayType = vbNo Then
PayType = BEGINPERIOD
Else PayType = ENDPERIOD
End If
TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)
If Int(TotPmts) <> TotPmts Then
TotPmts = Int(TotPmts) + 1
End If
MsgBox "It will take you " & TotPmts & _
" months to pay off your loan."
