PPmt İşlevi

Uygulandığı Öğe
Microsoft 365 için Access Access 2024 Access 2021 Access 2019 Access 2016

Dönemsel, sabit ödemeler ve sabit faiz oranı temelinde bir yıllık ödemenin belirli bir dönemi için ana para ödemesini belirten Çift değerini döndürür.

Söz dizimi

PPmt(oran, dönem, taksit_sayısı,bd [, gd ] [, tür ] )

PPmt işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız değişken Açıklama
oranı Gerekli. Çift, dönem başına faiz oranını belirtir. Örneğin, yıllık yüzde 10 oranıyla otomobil kredisi aldıysanız ve aylık ödemeler yapıyorsanız, dönem başına oran 0,1/12 veya 0,0083 olur.
başına Gerekli. 1 ile dönem_sayısı arasındaki ödeme dönemini belirten tamsayı.
dönem_sayısı Gerekli. Yıllık ödemedeki ödeme dönemlerinin toplam sayısını belirten tamsayı. Örneğin, dört yıllık bir otomobil kredisi için aylık ödemeler yapıyorsanız, kredinizin toplam 4 * 12 (veya 48) ödeme dönemi vardır.
BD işlevi Gerekli. Gelecekteki bir dizi ödeme veya alındının bugünkü değerini veya bugünkü değerini çift belirtme. Örneğin, bir araba satın almak için borç para aldığınızda, kredi tutarı, yapacağınız aylık araba ödemelerinin borç verene bugünkü değeridir.
gd İsteğe bağlı. Son ödemeyi yaptıktan sonra istediğiniz gelecekteki değeri veya nakit bakiyesini belirten değişken. Örneğin, bir borcun gelecekteki değeri 0 TL'dir çünkü son ödemeden sonra bu borcun değeri bu olur. Öte yandan, çocuğunuzun eğitimi için 18 yıllık bir sürede 50.000 TL tasarruf etmek istiyorsanız, gelecekteki değer 50.000 TL olacaktır. Atlanırsa, varsayılan değer olarak 0 kullanılır.
tür İsteğe bağlı. Ödemelerin ne zaman yapılacağını belirten değişken. Ödemeler ödeme dönemi sonunda yapılacaksa 0, ödemeler ödeme dönemi başında yapılacaksa 1 kullanın. Atlanırsa, varsayılan değer olarak 0 kullanılır.

Açıklamalar

Yıllık ödeme, belirli bir süre boyunca yapılan sabit nakit ödemeleri serisidir. Yıllık ödeme, ev ipoteği gibi bir borç veya aylık tasarruf planı gibi bir yatırım olabilir.

Oran ve dönem_sayısı bağımsız değişkenleri, aynı birimlerle ifade edilen ödeme dönemleri kullanılarak hesaplanmalıdır. Örneğin, oran aylar kullanılarak hesaplanıyorsa, dönem_sayısı da ay kullanılarak hesaplanmalıdır.

Tüm bağımsız değişkenler için, dışarı ödediğiniz nakit (mevduat tasarrufları gibi) negatif sayılarla, aldığınız nakit (kâr payı gibi) pozitif sayılarla belirtilir.

Sorgu örneği

İfade Sonuçlar
SELECT FinancialSample.*, PPMT([AnnualRate]/12,10,[TermInYears]*12,-[LoanAmount],0,0) AS INTPaid FROM FinancialSample; "FinansalÖrnek" tablosundaki tüm alanları döndürür, "KrediTutarı" için "YıllıkOran" ve "YıllıkYıllıkSüre" temelinde "per" (bu örnekte 10) olarak ödenen Anapara tutarını hesaplar ve sonuçları INTPaid sütununda görüntüler.

VBA örneği

Not

Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.

Bu örnekte, tüm ödemeler eşit değerde olduğunda, belirli bir döneme ait ödemenin ne kadarının anapara olduğunu hesaplamak için PPmt işlevi kullanılmaktadır. Dönem başına faiz yüzdesi oranı (APR / 12), anapara bölümünün istendiği ödeme dönemi (Period), toplam ödeme sayısı (TotPmts), kredinin bugünkü değeri veya anaparası (PVal), kredinin gelecekteki değeri (FVal) ve ödemenin ödeme döneminin başında mı yoksa sonunda mı yapılacağını gösteren bir sayı (PayType) verilir.

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