IPmt-Funktion

Artikel
09/03/2008

Aktualisiert: November 2007

Gibt einen Wert vom Typ Double zurück, der die Zinszahlung für einen bestimmten Zeitraum einer Annuität bei regelmäßigen, konstanten Zahlungen und einem konstanten Zinssatz angibt.

Function IPmt( _
   ByVal Rate As Double, _
   ByVal Per As Double, _
   ByVal NPer As Double, _
   ByVal PV As Double, _
   Optional ByVal FV As Double = 0, _
   Optional ByVal Due As DueDate = DueDate.EndOfPeriod _
) As Double

Parameter

Rate
Erforderlich. Ein Wert vom Typ Double, der den Zinssatz pro Zeitraum angibt. Wenn Sie beispielsweise einen Kredit für ein Auto mit einem Jahreszins von 10 Prozent aufnehmen und monatliche Zahlungen vereinbart haben, beträgt der Zinssatz pro Zeitraum 0,1 dividiert durch 12 oder 0,0083.
Per
Erforderlich. Ein Wert vom Typ Double, der den Zahlungszeitraum im Bereich von 1 bis NPer angibt.
NPer
Erforderlich. Ein Wert vom Typ Double, der die Gesamtanzahl der Zahlungszeiträume für die Annuität angibt. Wenn Sie beispielsweise monatliche Zahlungen für einen Autokredit mit vierjähriger Laufzeit vereinbart haben, beträgt die Summe der Zahlungszeiträume für den Kredit 4 x 12 (oder 48).
PV
Erforderlich. Ein Wert vom Typ Double, der den Barwert oder heutigen Wert einer Folge zukünftiger Einnahmen oder Ausgaben angibt. Wenn Sie beispielsweise einen Kredit 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. Ein Wert vom Typ Double, der den Endwert oder Kontostand angibt, der nach der letzten Zahlung erreicht sein soll. Der Endwert eines Kredits ist z. B. 0 Euro, da dies die Kredithöhe nach der letzten Zahlung ist. Wenn Sie jedoch für die Ausbildung Ihrer Kinder 50.000 Euro in 18 Jahren ansparen möchten, entspricht der Endwert 50.000 Euro. Wird der Wert nicht angegeben, so wird 0 angenommen.
Due
Optional. Ein Objekt vom Typ DueDate-Enumeration, das angibt, wann Zahlungen fällig sind. Dieses Argument muss entweder DueDate.EndOfPeriod sein, wenn die Zahlungen am Ende des Zahlungszeitraums fällig sind, oder DueDate.BegOfPeriod, wenn die Zahlungen zu Beginn des Zeitraums fällig sind. Wird der Wert nicht angegeben, so wird DueDate.EndOfPeriod angenommen.

Ausnahmen

Ausnahmetyp	Fehlernummer	Bedingung
ArgumentException	5	Per < = 0 oder Per > NPer

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Hinweise

Eine Annuität ist eine Reihe von konstanten Barzahlungen über einen bestimmten Zeitraum. Eine Annuität kann ein Kredit sein (z. B. eine Eigenheimhypothek) oder eine Investition (z. B. eine regelmäßige Spareinlage).

Die Argumente Rate und NPer müssen mit Zahlungszeiträumen berechnet werden, die in der gleichen Maßeinheit angegeben sind. Wenn Rate z. B. in Monaten berechnet wird, muss auch NPer in Monaten berechnet werden.

Bei allen Argumenten werden Zahlungsausgänge (z. B. Spareinlagen) durch negative Zahlen dargestellt, Zahlungseingänge (z. B. Dividendenauszahlungen) durch positive Zahlen.

Beispiel

In diesem Beispiel wird mit der IPmt-Funktion berechnet, welcher Anteil einer Zahlung auf Zinsen entfällt, wenn alle Zahlungen den gleichen Wert haben. Gegeben sind der Zinssatz pro Zeitraum (APR / 12), der Zahlungszeitraum, für den der Zinsanteil berechnet werden soll (Period), die Gesamtzahl der Zahlungen (TotPmts), der gegenwärtige Wert oder Betrag des Darlehens (PVal), der zukünftige Wert des Darlehens (FVal) und eine Zahl, die die Fälligkeit der Zahlung, am Anfang oder Ende des Zahlungszeitraums, angibt (PayType).

Sub TestIPMT()
    Dim APR, PVal, Period, IntPmt, TotInt, TotPmts As Double
    Dim PayType As DueDate
    Dim Response As MsgBoxResult

    ' Usually 0 for a loan.
    Dim Fval As Double = 0
    ' Define money format.
    Dim Fmt As String = "###,###,##0.00"
    PVal = CDbl(InputBox("How much do you want to borrow?"))
    APR = CDbl(InputBox("What is the annual percentage rate of your loan?"))
    If APR > 1 Then APR = APR / 100 ' Ensure proper form.
    TotPmts = CInt(InputBox("How many monthly payments?"))
    Response = MsgBox("Do you make payments at end of the month?", MsgBoxStyle.YesNo)
    If Response = MsgBoxResult.No Then
        PayType = DueDate.BegOfPeriod
    Else
        PayType = DueDate.EndOfPeriod
    End If
    For Period = 1 To TotPmts   ' Total all interest.
        IntPmt = IPmt(APR / 12, Period, TotPmts, -PVal, Fval, PayType)
        TotInt = TotInt + IntPmt
    Next Period

    ' Display results.
    MsgBox("You will pay a total of " & Format(TotInt, Fmt) & _
        " in interest for this loan.")
End Sub