PPmt függvény

Egy duplaszót ad eredményül, amely megadja egy annuitás adott időszakára vonatkozó tőketörlesztőrészletet állandó kifizetések és rögzített kamatláb mellett.

Szintaxis

PPmt(ráta; időszak; időszakok_száma; jelen_érték [; jövőbeli_ érték] [; típus ] )

A PRÉSZLET függvény szintaxisa az alábbi argumentumokat foglalja magában:

Argumentum	Leírás:
Kamatláb	Kötelező. Dupla típusú szám, amely az időszakonkénti kamatlábat határozza meg. Ha például van egy autókölcsöne, amelynek évenkénti kamata 10 százalék, és havonta fizeti vissza, akkor a kamat értéke egy időszakra 0,1/12, vagyis 0,0083.
Egy	Kötelező megadni. A fizetési időszakot 1-től az időszakok_száma tartományba eső egész szám.
Időszakok_száma	Kötelező megadni. Az annuitásban a fizetési időszakok teljes számát megadó egész szám. Ha például négy évre szóló autókölcsönt vett fel, és havonta fizeti vissza, akkor a kölcsönben 4 * 12 (tehát 48) fizetési időszak van.
Jelenérték	Kötelező megadni. Egy jövőbeni kifizetések vagy bevételek jelenértékét vagy mai értékét megadó dupla. Ha például autóvásárláshoz vesz fel hitelt, a hitel összege a havonta teljesített autótörlesztések jelenértéke a hitelező számára.
Jövőbeli_érték	Nem kötelező. Variant típusú érték, amely megadja az utolsó kifizetés utáni jövőbeli értéket vagy egyenleget. Egy kölcsön jövőbeli értéke például 0 Ft, mivel ez az értéke az utolsó kifizetés után. Ha azonban gyermeke taníttatására meg szeretne takarítani 18 év alatt 10 millió forintot, akkor a jövőbeli érték 10 millió forint. Ha nincs megadva, 0-nak feltételezi a rendszer.
típus	Nem kötelező. Variant típusú érték, amely megadja, hogy mikor kell teljesíteni a kifizetéseket. Ha 0 értéket ad meg, a kifizetéseket az időszakok végén, ha 1-et ad meg, akkor azok elején kell teljesíteni. Ha nincs megadva, 0-nak feltételezi a rendszer.

Megjegyzések

Az annuitás fix összegű készpénzfizetések egy sorozata, melyet egy adott időszakban tesz. Az annuitás lehet kölcsön (például jelzálogkölcsön) vagy befektetés (például havi megtakarítás).

A ráta és az időszakok_száma argumentumot azonos egységben kifejezett fizetési időszakok használatával kell kiszámítani. Ha például a ráta kiszámítása hónapok alapján történik, akkor az időszakok_számát is a hónapok alapján kell kiszámítani.

A kifizetett pénzösszegek (például megtakarításra félretett összegek) negatív számokkal vannak kifejezve minden argumentumban, a kapott készpénzt (például osztalékokat) pozitív számok jelzik.

Példalekérdezés

Expression (Kifejezés)	Eredmény:
SELECT FinancialSample.*, PPMT([AnnualRate]/12,10,[TermiÉv]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample;	Visszaadja a "FinancialSample" tábla összes mezőjét, kiszámítja a kifizetett tőkeösszeget a "per"(ebben a példában 10) "LoanAmount" értékben az "AnnualRate" és a "Termi_években" alapján, és megjeleníti az eredményeket az INTPaid oszlopban.

VBA-példa

Ebben a példában a PPmt függvénnyel kiszámítható, hogy egy adott időszakra vetített törlesztőrészlet mekkora része egyenlő értékű kifizetések esetén. Adott a kamatláb időszakonként (),APR / 12 a fizetési időszak, amelyre a tőkerészt kívánják (Period), a törlesztések teljes száma (TotPmts), a kölcsön jelenértéke vagy tőkerésze (PVal), a kölcsön jövőbeli értéke (),FVal és egy szám, amely azt jelzi, hogy a törlesztés a fizetési időszak elején vagy végén esedékes (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