Funkcija „PPmt“

Primenjuje se na
Access za Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Vraća promenljivu "Dvostruko" koja navodi otplatu na ime glavnice za dati period anuiteta na osnovu periodičnih, fiksnih rata i fiksne kamatne stope.

Sintaksa

PPmt(stopa, per,br_per,sad_vr [, bud_vr ] [, tip ] )

Sintaksa funkcije PPmt ima sledeće argumente:

Argument Opis
Bilten Obavezno. Promenljiva Dvostruko koja navodi kamatnu stopu za period. Na primer, ako ste uzeli kredit za automobil sa godišnjom kamatnom stopom (APR) od 10 procenata i plaćate mesečne rate, stopa za period je 0,1/12 ili 0,0083.
po Obavezno. Promenljiva "Ceo broj" koja navodi period isplate u opsegu od 1 do br_per.
br_per Obavezno. Promenljiva "Ceo broj" koja navodi ukupan broj perioda otplate u anuitetu. Na primer, ako plaćate mesečne rate na četvorogodišnji kredit za automobil, kredit ima ukupno 4 * 12 (ili 48) perioda otplate.
Bilten Obavezno. Dvostruko navođenje sadašnje ili današnje vrednosti niza budućih plaćanja ili prihoda. Na primer, kada pozajmljujete novac da biste kupili automobil, iznos kredita je sadašnja vrednost mesečnih uplata automobila za zajmodavca.
bud_vr Opcionalno. Varijanta koja navodi buduću vrednost ili gotovinski saldo koji želite nakon što platite poslednju ratu. Na primer, buduća vrednost kredita je 0 RSD jer je to njegova vrednost nakon poslednje rate. Međutim, ako želite tokom 18 godina da uštedite 50.000 RSD za obrazovanje deteta, 50.000 RSD onda predstavlja buduću vrednost. Ako se izostavi, pretpostavljena vrednost je 0.
tip Opcionalno. Varijanta koja navodi kada je dospeće rate. Koristite 0 ako rate dospevaju na kraju perioda otplate ili 1 ako rate dospevaju na početku perioda. Ako se izostavi, pretpostavljena vrednost je 0.

Napomene

Anuitet je niz fiksnih novčanih isplata tokom vremenskog perioda. Anuitet može biti kredit (kao što je hipoteka) ili investicija (kao što je plan za mesečne štednje).

Argumenti stopa i br_per moraju da se izračunaju pomoću perioda otplate izraženih u istim jedinicama. Na primer, ako se stopa računa pomoću meseci, br_per takođe mora da se računa pomoću meseci.

Za sve argumente, gotovina koju ste isplatili (kao što su depoziti za štedne uloge) predstavljena je negativnim brojevima; gotovina koju primate (kao što su čekovi sa dividendom) predstavljena je pozitivnim brojevima.

Query example

Izraz Rezultati
SELECT FinancialSample.*, PPMT([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample; Daje sva polja iz tabele "FinancialSample", izračunava iznos po glavnici uplaćen u argumentu "per" (10 u ovom primeru) od "LoanAmount" na osnovu tabela "AnnualRate" i "TermInYears" i prikazuje rezultate u koloni INTPaid.

VBA primer

Napomena

Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

Ovaj primer koristi funkciju PPmt za izračunavanje koliki je deo rate za određeni period glavnica kada su sve rate iste vrednosti. Dati su kamatna stopa za period (APR / 12), period otplate za koji se želi glavnica (Period), ukupan broj rata (TotPmts), sadašnja vrednost ili glavnica kredita (PVal), buduća vrednost kredita (FVal) i broj koji ukazuje na to da li rata dospeva na početku ili kraju perioda 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