Rate 函式
會傳回 Double ,指定年金的每期利率。
語法
rate (nper, pmt, pv, [ fv, [ type, [ guess ]]])
Rate 函式具有下列命名引數:
部分 | 描述 |
---|---|
nper | 此為必要動作。 雙 精度浮點數指定年金中的付款期間總數。 例如,如果您有為期四年的汽車貸款並且每月分期付款,您的貸款則總共有 4 * 12 (亦即 48) 個付款期。 |
Pmt | 此為必要動作。 雙 精度浮點數指定每個期間的付款。 收費通常包含在年金生命週期內不會變更的主體和興趣。 |
pv | 此為必要動作。 再次 指定一系列未來付款或收據的現值或現值。 例如,當您借錢購買汽車時,貸款金額是您每月汽車付款的現值。 |
fv | 選用。 Variant 指定您在進行最終付款之後想要的未來值或現金餘額。 例如,貸款的未來值為 $0,因為這是它在最後一次付款後的值。 不過,如果您想要在 18 年內為子女存 $50,000 的教育費,$50,000 則為未來值。 如果省略,則會假設為 0。 |
type | 選用。 Variant 指定指出付款到期時間的數位。 如果付款在付款期結束時到期,則使用 0,而如果付款在期間開始時到期,則使用 1。 如果省略,則會假設為 0。 |
想 | 選用。 指定您估計值的Variant會由Rate傳回。 如果省略, 則 guess 為 0.1 (10%) 。 |
註解
年金是在一段時間內所進行的一連串固定金額的現金付款。 年金可能是貸款 (例如房貸) 或投資 (例如每月儲蓄計劃)。
對於所有 自變數而言, (支付的現金,例如節省) 會以負數表示; (收到的現金,例如) 的紅利檢查會以正數表示。
速率 是依反復專案計算。 從 guess的值開始, Rate 會迴圈計算,直到結果精確到 0.00001% 內為止。 如果 Rate 在 20 次嘗試之後找不到結果,則會失敗。 如果您的猜測是 10%, 而 Rate 失敗,請嘗試不同的 猜測值。
範例
這個範例會使用 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 支援與意見反應。