Applies ToAccess for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

定期的な固定支払いと固定金利に基づいて、年金の支払いを指定する Double を返します。

構文

Pmt( rate, nper , pv [, fv ] [, type ] )

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

引数

説明

rate

必須です。 期間を通じた一定の利率を指定する Double 型。 たとえば、10 パーセントの年間利率 (APR) で自動車ローンを契約し、月払いで返済を行う場合、1 か月の利率は 0.1/12 (0.0083) になります。

nper

必須です。 投資期間全体での支払回数の合計を指定する Integer 型。 たとえば、4 年間の自動車ローンを月払いで返済する場合、このローンには合計 4 * 12 回 (48 回) の支払いが含まれます。

pv

必須。 将来支払う一連の支払いが今価値がある現在の値 (または一括合計) を指定する二重。 たとえば、車の購入資金を借りた場合、ローン金額は、借り手が毎月行う返済の貸し手に対する現在価値です。

fv

省略可能です。 最後の支払いを行った後に残る将来価値、つまり現金の収支を指定する Variant 型。 たとえば、ローンの将来価値は、最後の支払い後の値である 0 円になります。 しかし、子供の教育費として 18 年間で 500 万円をためることを目標にした場合、将来価値は 500 万円になります。 省略した場合、0 が想定されます。

type

省略可能です。 支払いが行われる時期を指定する Variant 型。 支払いを期末に行う場合は 0 を指定し、期首に行う場合は 1 を指定します。 省略した場合、0 が想定されます。

解説

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

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

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

クエリの例

結果

SELECT PMTSample.*, Pmt([AnnualRate]/12,[TermInYears]*12,-[LoanAmount],0,0) AS MonthlyRepayments FROM PMTSample;

テーブル "PMTSample" からすべてのフィールドを返し、"AnnualRate" に基づいて "LoanAmount" の支払いに必要な固定月払いを計算し、結果を MonthlyRepayments 列に表示します。

VBA の例

注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。

この例では、 Pmt 関数を使用して、一定期間のローンの毎月の支払いを返します。 期間あたりの利率 (APR / 12)、支払総数 (TotPmts)、ローンの現在価値または元金 (PVal)、ローンの将来価値 (FVal)、支払期日が支払期間の開始時か終了時かを示す数値 (PayType).

Dim Fmt, FVal, PVal, APR, TotPmts, PayType, Payment' When payments are made.Const ENDPERIOD = 0, BEGINPERIOD = 1    Fmt = "###,###,##0.00"    ' Define money format.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.TotPmts = InputBox("How many monthly " & _          "payments will you make?")PayType = MsgBox("Do you make payments " & _          "at the end of month?", vbYesNo)If PayType = vbNo Then    PayType = BEGINPERIOD     Else PayType = ENDPERIODEnd IfPayment = Pmt(APR / 12, TotPmts, -PVal, FVal, PayType)MsgBox "Your payment will be " & _    Format(Payment, Fmt) & " per month."

ヘルプを表示

その他のオプションが必要ですか?

サブスクリプションの特典の参照、トレーニング コースの閲覧、デバイスのセキュリティ保護方法などについて説明します。

コミュニティは、質問をしたり質問の答えを得たり、フィードバックを提供したり、豊富な知識を持つ専門家の意見を聞いたりするのに役立ちます。