Rate 函数
Returns a Double specifying the interest rate per period for an annuity.
语法
速率 (nper、 pmt、 pv、[ fv、[ type， [ guess ]]])
“比率”函数具有以下命名参数：
| Part | 说明 |
|---|---|
| nper | 必填。 指定年金总付款期数的“Double”。 例如，如果您要每月偿付四年期限的车贷，您的贷款总付款期为 4 * 12 （或 48）。 |
| Pmt | 必填。 指定每个月的付款的“Double”。 付款通常包含了在该年金时期间不会改变的本金和利息。 |
| 光伏 | 必填。 指定一系列未来付款或回执的现值或当前值的“Double” 。 例如，当你借钱买车时，贷款金额是贷款人每月支付汽车付款的现值。 |
| 抗体 | 可选。 指定最终付款之后的终值或现金余额的变量。 例如，贷款的终值为 $0，因为这是最终贷款之后的值。 但是，如果要在 18 年内节省 50，000 美元用于孩子的教育，则 50，000 美元是未来价值。 如果省略了，便假设为 0。 |
| type | 可选。 指定 指示付款到期时间的数字的变体。 如果付款在付款期结束时到期，则使用 0；如果付款在付款期开始时到期，则使用 1。 如果省略，则假定为 0。 |
| 想 | 可选。 指定您估计的值将由“日期” 返回的“变量”。 如果省略了，则推测为 0.1(10%)。 |
备注
年金是一段时间内一系列的固定的现金付款。 年金可以是贷款（如房产抵押），也可以是投资（如月存款计划）。
对于所有参数而言，支付的现金（如储蓄存款）由负数表示，收到的现金（如股利支票）由正数表示。
Rate is calculated by iteration. 从 猜测值开始， Rate 会循环执行计算，直到结果准确到 0.00001% 以内。 If Rate can't find a result after 20 tries, it fails. 如果您的推测是 10%，但是“比率” 失败了，那么请尝试不同的值以供推测。
示例
本示例使用 Rate 函数计算贷款的利率（给定) (付款 TotPmts 总数、贷款支付 () Payment 的金额、贷款 () PVal 的现值或本金、贷款 () FVal 的未来价值、指示付款期开始还是到期 (PayType) ， 以及预期利率 (Guess) 的近似值。
Dim Fmt, FVal, Guess, PVal, Payment, TotPmts, PayType, APR
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.
Fmt = "##0.00" ' Define percentage format.
FVal = 0 ' Usually 0 for a loan.
Guess = .1 ' Guess of 10 percent.
PVal = InputBox("How much did you borrow?")
Payment = InputBox("What's your monthly payment?")
TotPmts = InputBox("How many monthly payments do you have to make?")
PayType = MsgBox("Do you make payments at the end of the month?", _
vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100
MsgBox "Your interest rate is " & Format(CInt(APR), Fmt) & " percent."
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。