Befehlsreferenz - Mathematik: PPmt-Funktion

VB-Versionen:    VB4   |    VB5   |    VB6

Beschreibung:
Die PPmt-Funktion gibt den Kapitalanteil einer Auszahlung für einen bestimmten Zeitraum einer Annuität zurück. Der Rückgabewert ist vom Typ Double.

Syntax:

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

Parameter:

rate	(Double) Gibt den Zinssatz pro Zeitraum an. Nehmen Sie z.B. einen Kredit für mit einem Jahreszins von 8 Prozent auf und vereinbaren monatliche Zahlungen, beträgt der Zinssatz pro Zeitraum 0,08 dividiert durch 12 oder 0,00666.
per	(Integer) Gibt den Zahlungszeitraum an (1 bis nper)
nper	(Integer) Gibt die Gesamtanzahl der Zahlungszeiträume für die Annuität an. Beträgt die Laufzeit eines Kredits z.B. 3 Jahre, muß für pmt 36 (3 x 12 Monat) angegeben werden.
pv	(Double) Barwert Wenn Sie beispielsweise Geld für einen Autokauf aufnehmen, stellt die Kredithöhe für den Kreditgeber den Barwert der von Ihnen zu leistenden monatlichen Zahlungen dar.
fv	Optional. (Variant) Gibt den Endwert oder Kontostand an, der erreicht sein soll, wenn die letzte Zahlung erfolgte.
type	Optional. (Variant) Gibt an, wann Zahlungen fällig sind. Bei 0 (Voreinstellung) sind die Zahlungen am Ende eines Zahlungszeitraums fällig, bei 1 zu Beginn des Zahlungszeitraums.

Unter einer Annuität versteht man eine Folge konstanter Barzahlungen über einen bestimmten Zeitraum. Eine Annuität kann ein Kredit sein (z.B. eine Haushypothek) oder eine Investition (z.B. eine regelmäßige Spareinlage).

Die Angaben für rate und nper müssen in derselben Maßeinheit erfolgen.

In der Parameterliste werden Zahlungsausgänge (z.B. Spareinlagen) durch negative und Zahlungseingänge (z.B. Dividendenauszahlungen) durch positive Zahlen dargestellt.

Beispiel:

' Berechnen der monatlichen Belastung für einen Kredit
dblKredit = 25000  'Höhe des Kredits
dblZinssatz = 8 / 100  'Zinssatz jährlich
dblLaufzeit = 60  ' gewünschte Laufzeit (60 Monate = 5 Jahre)
varTermin = 1  ' Zahlungen am Monatsanfang
 
dblMonatsrate = Pmt(dblZinssatz / 12, dblLaufzeit, -dblKredit, 0, varTermin)
 
' Zur Info: mtl. Belastung beträgt 503,56 bei insgesamt 30.558,60 DM
MsgBox "Monatliche Belastung: " & Format(dblMonatszahlung, "###.###.##0,00") & _
  vbCrLf & "Insgesamt gezahlt wurde dann: " & _
  Format$(dblLaufzeit * dblMonatsrate, "###.###.##0,00") & " gezahlt."
 
' Aufschlüsselung Kapital- und Zinsanteil für das 1. Jahr
For z = 1 To 12
  kAnteil = PPmt(dblZinssatz / 12, z, dblLaufzeit, -dblKredit, 0, varTermin)
  kAnteil = (Int((kAnteil + 0.005) * 100) / 100)  ' Kapitalanteil runden.
  zAnteil = dblMonatsrate - kAnteil
  zAnteil = (Int((zAnteil + 0.005) * 100) / 100)  ' Zinsen runden.
 
  Debug.Print i, Format$(Monatsrate, "###.##0,00"), _
    Format$(kAnteil, "###.##0,00"), Format$(zAnteil, "###.##0,00")
Next z