PPmt 函數

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

傳回 Double,指定年金根據週期、 固定支出及固定的利率時的指定期間內的本金付款。

語法

PPmt ( rate, per, nper , pv [, fv ] [, type ] )

PPmt函數語法具有下列引數︰

引數

描述

rate

必要。 Double 指定每期利率。 例如,如果您的汽車貸款的年利率 (APR) 是10%,並且每月付款,則每期的利率為 0.1/12 或 0.0083。

每個

所需。指定nper到 1 範圍內的付款期間的整數。

nper

所需。指定本金付款期間的總數的整數。例如,如果四年期汽車貸款每月付款,您貸款有 4 * 12 (即 48) 期總計。

pv

所需。指定的現值或今天的一系列未來各期付款或信回條價值。例如,當您錢買車,貸款金額是每月付款會使的貸的現值。

fv

可省略。 用來指定您在最後一次付款後所要的終值或現金餘額的 Variant。 例如,貸款的終值是 $0,因為這是其最終付款的值。 不過,如果您想要為您的子女儲蓄 $50,000 教育基金 (18 年),則 $50,000 是終值。 如果沒有指定,會假設為 0。

type

可省略。 用來指定給付時點的 Variant。 如果給付時點為付款期限結束時,則使用 0;如果給付時點為期限開始時,則使用 1。 如果沒有指定,會假設為 0。


註解

年金是指一段時間內,一系列的固定現金付款活動。 年金可能是一筆貸款 (例如房屋貸款) 或投資 (例如每月存款計劃)。

必須使用相同單位表示的付款期間來計算 ratenper 引數。 例如,如果 rate 是使用月份計算,則 nper 也必須使用月份計算。

對於所有引數,付出的現金 (例如要儲蓄的存款金額) 是由負數表示;收入的現金 (例如股利支票) 是由正數表示。

範例

附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例使用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 newline.
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

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×