Funktionen PPmt

Returnerar ett värde av datatypen Double som anger amorteringsbeloppet för en viss period av en annuitet baserat på periodiska, fasta betalningar och en fast räntesats.

Syntax

AMort(ränta; period; periodantal; nuvärde [, slutvärde ] [; typ ] )

Syntaxen för funktionen AMort har följande argument:

Argument	Beskrivning
betygsätta	Obligatoriskt. Double (Dubbel) anger räntan per period. Om du t.ex. tar ett billån med en årlig räntesats (APR) på 10 procent och gör månatliga betalningar, är räntan per period 0,1/12, alltså 0,0083.
per	Obligatoriskt. Heltal som anger betalningsperioden i intervallet 1 till periodantal.
periodantal	Obligatoriskt. Heltal som anger det totala antalet betalningsperioder för en annuitet. Om du till exempel gör månatliga inbetalningar på ett fyraårigt lån, har lånet totalt 4 gånger 12 (alltså 48) betalningsperioder.
Nuvärde	Obligatoriskt. Double anger nuvärdet eller värdet i dag av en serie framtida in- eller utbetalningar. Till exempel, när du lånar pengar för att köpa en bil, är lånebeloppet det nuvarande värdet för långivaren av de månatliga bilbetalningarna du kommer att göra.
slutvärde	Valfritt. En variant där du anger ett framtida värde eller saldo för när du har gjort den sista betalningen. Ett exempel: det framtida värdet av ett lån är 0 kr, eftersom det är dess värde efter den sista betalningen. Men om du vill spara t.ex. 500 000 under en period på 18 år för barnens framtida liv, är 500 000 det framtida värdet. Om inget värde anges används automatiskt värdet 0.
Typ	Valfritt. Variant som anger när betalningarna ska göras. Använd 0 om betalningarna förfaller i slutet av perioden. Använd 1 om betalningarna förfaller i början av perioden. Om inget värde anges används automatiskt värdet 0.

Kommentarer

En annuitet är en serie konstanta betalningar över en sammanhängande period. En annuitet kan vara ett lån (t.ex. ett huslån) eller en investering (t.ex. en plan för månatligt sparande).

Argumenten ränta och periodantal måste beräknas med betalningsperioder som uttrycks i samma enhet. Om ränta till exempel beräknas med månader måste periodantal också beräknas med månader.

För alla argument gäller att de betalningar du gör, t ex inbetalningar på sparkonto, representeras av negativa tal och pengar som du tar emot, t ex återbäring, representeras av positiva tal.

Exempel på fråga

Uttryck	Resultat
SELECT FinancialSample.*, PPMT([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample;	Returnerar alla fält från tabellen "FinancialSample", beräknar det betalda kapitalbeloppet i "per"(10 i det här exemplet) för "LoanAmount" baserat på "AnnualRate" och "TermInYears" och visar resultaten i kolumnen INTPaid.

VBA-exempel

I det här exemplet används funktionen AMort för att beräkna hur stor del av en betalning för en viss period som är kapitalbelopp när alla betalningar är av samma värde. Givet är räntesatsen per period (APR / 12), den betalningsperiod för vilken kapitaldelen önskas (Period), det totala antalet betalningar (TotPmts), nuvärdet eller kapitalbeloppet av lånet (PVal), det framtida värdet av lånet (FVal) och ett tal som anger om betalningen förfaller i början eller slutet av betalningsperioden (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