Financial.Rate(Double, Double, Double, Double, DueDate, Double) 方法
定义
重要
一些信息与预发行产品相关，相应产品在发行之前可能会进行重大修改。 对于此处提供的信息，Microsoft 不作任何明示或暗示的担保。
返回一个指定每期年金利率的值。
public static double Rate (double NPer, double Pmt, double PV, double FV = 0, Microsoft.VisualBasic.DueDate Due = Microsoft.VisualBasic.DueDate.EndOfPeriod, double Guess = 0.1);static member Rate : double * double * double * double * Microsoft.VisualBasic.DueDate * double -> doublePublic Function Rate (NPer As Double, Pmt As Double, PV As Double, Optional FV As Double = 0, Optional Due As DueDate = Microsoft.VisualBasic.DueDate.EndOfPeriod, Optional Guess As Double = 0.1) As Double参数
- NPer
- Double
必需。 年金付款总期数。 例如，如果您的汽车贷款的期限为四年，按月还款，则这笔贷款共有 4 * 12（即 48）个支付周期。
- Pmt
- Double
必需。 每期应付金额。 付款金额通常包含本金和利息，该值在年金的有效期限内都不会改变。
- PV
- Double
必需。 未来一系列支出或收入的现值。 例如，如果您贷款买车，贷款额就是您将以按月还款的方式付给贷方的现值。
- FV
- Double
可选。 完成最后一次付款后所希望的终值或现金余额。 例如，贷款的终值为 $0，这是因为终值是末期还款之后的价值。 但是，如果您想用 18 年的时间存储 $50,000 作为孩子的教育经费，则 $50,000 是终值。 如果省略，则假定为 0。
- Due
- DueDate
可选。 DueDate 类型的对象指定付款何时到期。 如果在付款期末付款，则此参数必须为 DueDate.EndOfPeriod；如果在付款期初付款，则此参数必须为 DueDate.BegOfPeriod。 如果省略，则假定为 DueDate.EndOfPeriod。
- Guess
- Double
可选。 Rate 将返回估计值。 如果省略，Guess 便为 0.1 (10%)。
返回
每期的年金利率。
例外
NPer<= 0.
示例
此示例使用 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
注解
年金是一段时间内的一系列固定现金付款。 年金可以是贷款 (，如住房抵押贷款) 或投资 (，如每月储蓄计划) 。
对于所有参数，支付的现金 (如存款到储蓄) 用负数表示：收到的现金 (如股息检查) 由正数表示。
Rate 按迭代计算。 从 的值 Guess开始， Rate 循环执行计算，直到结果准确到 0.00001% 以内。 如果在 Rate 20 次尝试后找不到结果，则失败。 如果猜测为 10%，但 Rate 失败，请尝试为 Guess使用其他值。
