PPmt-Funktion

Artikel
10/25/2024

Gibt einen Double-Wert zurück, der die Tilgungszahlung für einen bestimmten Annuitätszeitraum basierend auf regelmäßigen, festen Zahlungen und einem festen Zinssatz angibt.

Syntax

PPmt(rate, per, nper, pv, [ fv, [ type ]])

Die PPmt-Funktion enthält die folgenden benannten Argumente:

Bestandteil	Beschreibung
rate	Erforderlich. Double-Wert, der den Zinssatz pro Zeitraum angibt. Wenn Sie beispielsweise einen Autokredit für einen Jahreszins von 10 Prozent aufnehmen und monatliche Zahlungen leisten, ist der Zins pro Zeitraum 0,1/12 oder 0,0083.
pro	Erforderlich. Ganzzahl, die den Zahlungszeitraum im Bereich von 1 bis Zzr angibt.
nper	Erforderlich. Ein Wert vom Typ Integer, der die Gesamtanzahl der Zahlungszeiträume für die Annuität angibt. Wenn Sie beispielsweise monatliche Zahlungen für einen über 4 Jahre laufenden Autokredit vornehmen, weist ihr Darlehen eine Gesamtanzahl von 4 * 12 (also 48) Zahlungszeiträumen auf.
pv	Erforderlich. Double-Wert, der den Barwert, also den heutigen Wert, einer Reihe zukünftiger Zahlungen oder Geldeingänge angibt. Wenn Sie z. B. Geld leihen, um ein Auto zu kaufen, ist der Kreditbetrag der Barwert für den Kreditgeber der monatlichen Autozahlungen, die Sie tätigen werden.
fv	Optional. Variante, die den zukünftigen Wert oder den Kassenbestand angibt, den Sie nach Tätigung der letzten Zahlung erzielen möchten. Der Endwert eines Kredits ist z. B. 0 Euro, da dies der Wert nach der letzten Zahlung ist. Wenn Sie aber 50.000 Euro im Laufe von 18 Jahren für die Ausbildung Ihres Kindes sparen möchten, ist 50.000 der Endwert. Wenn kein Wert angegeben wird, wird 0 angenommen.
type	Optional. Variante, die angibt, wann Zahlungen fällig sind. Verwenden Sie 0, wenn Zahlungen am Ende des Zahlungszeitraums fällig sind, und 1 für den Anfang des Zeitraums. Wenn kein Wert angegeben wird, wird 0 angenommen.

Hinweise

Eine Annuität ist eine Reihe von festen Barzahlungen über einen längeren Zeitraum. Eine Annuität kann ein Kredit (z. B. eine Hypothek) oder eine Investition (z. B. ein monatlicher Sparplan) sein.

Die Argumente rate und nper müssen anhand von Zahlungsfristen berechnet werden, die in denselben Einheiten ausgedrückt werden. Wenn Zins beispielsweise mit Monaten berechnet wird, muss auch nper unter Verwendung von Monaten berechnet werden.

Für alle Argumente gilt, dass Geldbeträge, die Sie auszahlen (z. B. Spareinlagen), durch negative Zahlen und Geldbeträge, die Sie einnehmen (z. B. Dividenden), durch positive Zahlen dargestellt werden.

Beispiel

In diesem Beispiel wird die PPmt-Funktion verwendet, um zu berechnen, wie viel von einer Zahlung für einen bestimmten Zeitraum prinzipal ist, wenn alle Zahlungen gleich sind. Angegeben sind der zinsprozentige Zinssatz pro Zeitraum (APR / 12), der Zahlungszeitraum, für den der Hauptanteil gewünscht wird (Period), die Gesamtzahl der Zahlungen (TotPmts), der Barwert oder der Kapitalbetrag des Darlehens (PVal), der zukünftige Wert des Darlehens (FVal), und eine Zahl, die angibt, ob die Zahlung am Anfang oder Ende des Zahlungszeitraums fällig ist (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 new line.
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

Siehe auch

Funktionen (Visual Basic for Applications)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über