Financial.Rate メソッド
アセンブリ: Microsoft.VisualBasic (microsoft.visualbasic.dll 内)

Public Shared Function Rate ( _ NPer As Double, _ Pmt As Double, _ PV As Double, _ <OptionalAttribute> Optional FV As Double = 0, _ <OptionalAttribute> Optional Due As DueDate = DueDate.EndOfPeriod, _ <OptionalAttribute> Optional Guess As Double = 0.1 _ ) As Double
Dim NPer As Double Dim Pmt As Double Dim PV As Double Dim FV As Double Dim Due As DueDate Dim Guess As Double Dim returnValue As Double returnValue = Financial.Rate(NPer, Pmt, PV, FV, Due, Guess)
public static double Rate ( double NPer, double Pmt, double PV, [OptionalAttribute] double FV, [OptionalAttribute] DueDate Due, [OptionalAttribute] double Guess )
public: static double Rate ( double NPer, double Pmt, double PV, [OptionalAttribute] double FV, [OptionalAttribute] DueDate Due, [OptionalAttribute] double Guess )
public static double Rate ( double NPer, double Pmt, double PV, /** @attribute OptionalAttribute() */ double FV, /** @attribute OptionalAttribute() */ DueDate Due, /** @attribute OptionalAttribute() */ double Guess )
public static function Rate ( NPer : double, Pmt : double, PV : double, FV : double, Due : DueDate, Guess : double ) : double
- NPer
必須。投資期間全体での支払い回数の合計を示す Double 型の値。たとえば、4 年間、月々分割払い自動車ローンを利用した場合、合計で 4 × 12 (= 48) の返済期間があることになります。
- PV
必須。現在の投資額、つまり将来行われる一連の支払いや受け取りを現時点で一括した場合の合計金額を示す Double 型の値。たとえば、自動車を購入するために資金を借り入れた場合、ローン金額は、毎月の返済の対象となる貸手にとっての現在価値を表します。
- FV
省略可能。投資の将来価値、つまり最後の支払いを行った後に残る現金の収支を示す Double 型の値。たとえば、ローンの将来価値は 0 です。最終支払い後の価値であるためです。ただし、子供の教育費のため、18 年間かけて 50 万円を貯金する場合、この 50 万円は将来価値になります。省略した場合、0 が使用されます。
- Due
省略可能。支払い期日を示すオブジェクト型 DueDate 列挙型 の値。各期の期末に支払う場合は DueDate.EndOfPeriod を、各期の期首に支払う場合は DueDate.BegOfPeriod をそれぞれ引数に指定します。省略した場合は、DueDate.EndOfPeriod を指定したものと見なされます。
投資期間を通じての利率を指定する Double 型の値を返します。

詳細については、Visual Basic のトピック「Rate 関数」を参照してください。
投資とは、一連の定額の支払いを一定の期間行うことです。たとえば、住宅ローンなどのローンまたは毎月の貯蓄プランなどの出資を指します。
すべての引数は、現金の支出 (口座への預け入れなど) を負数で表し、現金の受け取り (配当小切手など) を正数で表します。
Rate は、反復計算の手法を用いて計算されます。Guess の値を初期値とし、Rate は計算結果の誤差が 0.00001% 以内になるまで反復計算を行います。Rate 反復計算を 20 回行っても適切な解が見つからない場合は、エラーとなります。推定値に 10% を指定して Rate が失敗した場合は、Guess の値を変えてみてください。

この例では、Rate 関数を使用してローンの利率を計算します。支払い回数 (TotPmts)、支払い額 (Payment)、現在価値または元金 (PVal)、将来価値 (FVal)、支払い期日 (PayType)、利率の推定値 (Guess) を指定します。
Sub TestRate() Dim PVal, Payment, TotPmts, APR As Double Dim PayType As DueDate ' Define percentage format. Dim Fmt As String = "##0.00" Dim Response As MsgBoxResult ' Usually 0 for a loan. Dim FVal As Double = 0 ' Guess of 10 percent. Dim Guess As Double = 0.1 PVal = CDbl(InputBox("How much did you borrow?")) Payment = CDbl(InputBox("What's your monthly payment?")) TotPmts = CDbl(InputBox("How many monthly payments do you have to make?")) Response = MsgBox("Do you make payments at the end of the month?", MsgBoxStyle.YesNo) If Response = MsgBoxResult.No Then PayType = DueDate.BegOfPeriod Else PayType = DueDate.EndOfPeriod End If APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100 MsgBox("Your interest rate is " & Format(CInt(APR), Fmt) & " percent.") End Sub

Windows 98, Windows 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile for Pocket PC, Windows Mobile for Smartphone, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
開発プラットフォームの中には、.NET Framework によってサポートされていないバージョンがあります。サポートされているバージョンについては、「システム要件」を参照してください。


- Financial.Rate メソッドのページへのリンク