PPmt 函數

回退為雙倍，根據定期固定付款及固定利率，指定特定期間的年金本金還款金額。

語法

PPmt (率，每人，nper，pv [， fv ] [， 類型 ] )

PPmt 函數語法包含以下參數：

引數	描述
利率	必要。 Double 指定每期利率。 例如，如果您的汽車貸款的年利率 (APR) 是10%，並且每月付款，則每期的利率為 0.1/12 或 0.0083。
per	必要。 整數表示付款期間範圍為 1 到 nper。
NPER	必要。 整數表示年金中支付期間的總數。 舉例來說，如果您按月償還為期四年的汽車貸款，那麼貸款總付款期數會是 4 * 12 (或 48)。
PV	必要。 雙重 指定一系列未來付款或收款的現值或今日價值。 例如，當你借錢買車時，貸款金額就是你每月汽車還款的現值。
fv	可省略。 用來指定您在最後一次付款後所要的終值或現金餘額的 Variant。 例如，貸款的終值是 $0，因為這是其最終付款的值。 不過，如果您想要為您的子女儲蓄 $50,000 教育基金 (18 年)，則 $50,000 是終值。 如果沒有指定，會假設為 0。
type	可省略。 用來指定給付時點的 Variant。 如果給付時點為付款期限結束時，則使用 0；如果給付時點為期限開始時，則使用 1。 如果沒有指定，會假設為 0。

註解

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

利率與非利率參數必須使用相同單位表示的付款期間計算。 例如，若費 率 以月份計算， nper 也必須以月份計算。

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

查詢範例

運算式	結果
SELECT FinancialSample.*，PPMT ([年利率]/12,10，[TermInYears]*12，-[貸款金額]，0,0) 作為 INTPAID 來自 FinancialSample;	回傳表格「FinancialSample」中的所有欄位，計算本金金額， () 本「貸款金額」中的「10」，基於「年利率」與「期限年數」，並以 INTPaid 欄位顯示結果。

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