PPmt 函式
會傳回 Double ,根據定期、固定付款和固定利率,指定給定年金期間的本金付款。
語法
PPmt (速率, per, nper, pv, [ fv, [ type ]])
PPmt 函式具有下列命名自變數:
部分 | 描述 |
---|---|
rate | 必要。 [雙精準數],指定各期利率。 例如,如果您有年百分率 (APR) 為 10% 的汽車貸款並且每月分期付款,各期利率為 0.1/12 (亦即 0.0083)。 |
每 | 此為必要動作。 整數 ,指定介於 1 到 nper 範圍內的付款期間。 |
nper | 必要。 [整數],指定年金的付款總期數。 例如,如果您有為期四年的汽車貸款並且每月分期付款,您的貸款則總共有 4 * 12 (亦即 48) 個付款期。 |
pv | 此為必要動作。 再次 指定一系列未來付款或收據的現值或現值。 例如,當您借錢購買汽車時,貸款金額是您每月汽車付款的現值。 |
fv | 選用。 Variant,指定您在進行最後一次付款後想要的未來值或現金餘額。 例如,貸款的未來值為 $0,因為這是它在最後一次付款後的值。 不過,如果您想要在 18 年內為子女存 $50,000 的教育費,$50,000 則為未來值。 如果省略,則會假設為 0。 |
type | 選用。 Variant,指定付款的到期時間。 如果付款在付款期結束時到期,則使用 0,而如果付款在期間開始時到期,則使用 1。 如果省略,則會假設為 0。 |
備註
年金是在一段時間內所進行的一連串固定金額的現金付款。 年金可能是貸款 (例如房貸) 或投資 (例如每月儲蓄計劃)。
rate 和 nper 自變數必須使用以相同單位表示的付款期間來計算。 例如,如果使用月計算 rate , 則 nper 也必須使用月計算。
對於所有引數,付出的現金 (例如要儲蓄的存款金額) 是由負數表示;收入的現金 (例如紅利支票) 是由正數表示。
範例
此範例會使用 PPmt 函式來計算當所有付款都相等時,特定期間的付款金額是主體。 假設是) (每個期間 APR / 12
的利率百分比、) (Period
需要本金部分的付款期間、 () TotPmts
的付款總數、貸款 () PVal
的現值或本金、貸款 (FVal
) 的未來值,以及指出付款期開頭或結束時的 PayType
付款 () 的數位。
Dim NL, TB, Fmt, FVal, PVal, APR, TotPmts, PayType, Payment, Msg, MakeChart, Period, P, I
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.
NL = Chr(13) & Chr(10) ' Define new line.
TB = Chr(9) ' Define tab.
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 do you have to make?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
Payment = Abs(-Pmt(APR / 12, TotPmts, PVal, FVal, PayType))
Msg = "Your monthly payment is " & Format(Payment, Fmt) & ". "
Msg = Msg & "Would you like a breakdown of your principal and "
Msg = Msg & "interest per period?"
MakeChart = MsgBox(Msg, vbYesNo) ' See if chart is desired.
If MakeChart <> vbNo Then
If TotPmts > 12 Then MsgBox "Only first year will be shown."
Msg = "Month Payment Principal Interest" & NL
For Period = 1 To TotPmts
If Period > 12 Then Exit For ' Show only first 12.
P = PPmt(APR / 12, Period, TotPmts, -PVal, FVal, PayType)
P = (Int((P + .005) * 100) / 100) ' Round principal.
I = Payment - P
I = (Int((I + .005) * 100) / 100) ' Round interest.
Msg = Msg & Period & TB & Format(Payment, Fmt)
Msg = Msg & TB & Format(P, Fmt) & TB & Format(I, Fmt) & NL
Next Period
MsgBox Msg ' Display amortization table.
End If
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。