Funkcija PPmt

Vraća broj dvostruke preciznosti koji određuje glavnicu za dano razdoblje anuiteta na temelju periodičnih, fiksnih rata i fiksne kamatne stope.

Sintaksa

PPmt(stopa; razd;brrazd;sv [, bv ] [, vrsta ] )

Sintaksa funkcije PPmt sadrži ove argumente:

Argument	Opis
stopa	Obavezno. Broj dvostruke preciznosti koji određuje kamatnu stopu po razdoblju otplate. Ako vam je, primjerice, odobren kredit za kupnju automobila po godišnjoj kamatnoj stopi od 10 posto i mjesečno ga otplaćujete, rata po razdoblju otplate iznosi 0,1/12 ili 0,0083.
po	Obavezno. Cijeli broj koji određuje razdoblje otplate u rasponu od 1 do brrazd.
brrazd	Obavezno. Cijeli broj koji određuje ukupan broj razdoblja otplate u anuitetu. Ako, primjerice, mjesečno otplaćujete četverogodišnji kredit za automobil, kredit ima ukupno 4 * 12 (ili 48) razdoblja otplate.
pv	Obavezno. Dvostruko određivanje trenutne vrijednosti ili sadašnje vrijednosti niza budućih uplata ili računa. Na primjer, kada posuđujete novac za kupnju automobila, iznos zajma je sadašnja vrijednost mjesečnih rata koje ćete zajmodavcu uplaćivati.
bv	Neobavezno. Vrijednost vrste Variant buduća je vrijednost ili saldo koji želite postići nakon posljednje uplate. Na primjer, buduća vrijednost kredita je 0 kn jer je to vrijednost nakon posljednje uplate. No ako želite uštedjeti 300 000 kn u razdoblju od 18 godina za školovanje svog djeteta, tada je 300 000 kn buduća vrijednost. Ako se izostavi, pretpostavlja se da je 0.
vrsta	Neobavezno. Vrijednost vrste Variant koja određuje dospijeće uplata. Koristite vrijednost 0 ako je dospijeće uplata na kraju razdoblja otplate ili 1 ako je dospijeće uplata na početku razdoblja. Ako se izostavi, pretpostavlja se da je 0.

Napomene

Anuitet je niz fiksnih uplata tijekom određenog razdoblja. Anuitet može biti kredit (npr. hipotekarna nekretnina) ili ulaganje (npr. mjesečni plan štednje).

Argumenti stopa i brrazd moraju se izračunati pomoću razdoblja otplate izraženih u istim jedinicama. Na primjer, ako se stopa izračunava pomoću mjeseci, brrazd se mora izračunati i pomoću mjeseci.

Za sve se argumente plaćeni iznos (npr. polog za štednju) izražava negativnim brojevima. Primljeni iznos (npr. ček od dividende) izražava se pozitivnim brojevima.

Primjer upita

Izraz	Rezultati
SELECT FinancialSample.*, PPMT([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample;	Vraća sva polja iz tablice "Financijski uzorak", izračunava iznos glavnice plaćen u vrijednosti "pre" (10 u ovom primjeru) argumenta "LoanAmount" na temelju vrijednosti "YearRate" i "TermInYears" te prikazuje rezultate u stupcu INTPaid.

VBA primjer

U ovom primjeru funkcija PPmt izračunava koliki dio uplate za određeno razdoblje čini glavnica kada su sva uplate jednake vrijednosti. Navedeni su postotna kamatna stopa po razdoblju (APR / 12), razdoblje otplate za koje se traži glavnica (Period), ukupan broj otplata (TotPmts), sadašnja vrijednost ili glavnica zajma (PVal), buduća vrijednost zajma (FVal) i broj koji upućuje na to dospijeva li otplata na početku ili na kraju razdoblja otplate (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