Rate (Funktion)

Gibt einen Double-Wert zurück, der den Zinssatz pro Zeitabschnitt einer Annuität angibt.

Syntax

Rate(nper, pmt,pv [, fv ] [, type ] [, guess ] )

Die Syntax der Funktion Rate weist die folgenden Argumente auf:

Argument	Beschreibung
Zzr	Erforderlich. Double-Wert, der die Gesamtanzahl von Zahlungszeiträumen für die Annuität angibt. Wenn Sie beispielsweise monatliche Zahlungen für einen Autokredit mit vierjähriger Laufzeit leisten, umfasst Ihr Kredit insgesamt 4 * 12 (also 48) Zahlungszeiträume.
pmt	Erforderlich. Double-Wert, der die pro Zeitraum zu leistende Zahlung angibt. Die Zahlungen enthalten in der Regel Kreditsumme und Zinsen und ändern sich während der Laufzeit einer Annuität nicht.
BW	Erforderlich. Double-Wert, der den Barwert, also den heutigen Wert, einer Reihe zukünftiger Zahlungen oder Geldeingänge angibt. Wenn Sie beispielsweise einen Kredit für ein Auto aufnehmen, ist die Summe dieses Kredits für den Kreditgeber gleich dem Barwert der monatlichen Zahlungen, die Sie für das Auto leisten.
ZW	Optional. Variant-Wert, 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 sein Wert 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. Fehlt dieses Argument, wird 0 angenommen.
type	Optional. Variant-Wert, der angibt, wann Zahlungen fällig sind. Verwenden Sie 0, wenn die Zahlungen am Ende des Zahlungszeitraums fällig sind, oder verwenden Sie 1, wenn die Zahlungen am Anfang des Zeitraums fällig sind. Fehlt dieses Argument, wird 0 angenommen.
Schätzwert	Optional. Variant-Wert, der den Wert angibt, der Ihrer Schätzung zufolge von Rate zurückgegeben wird. Wenn nicht angegeben, ist die Schätzung 0,1 (10 Prozent).

Hinweise

Eine Annuität ist eine Reihe von konstanten Barzahlungen, die in einem Zeitraum geleistet werden. Eine Annuität kann ein Kredit (z. B. eine Eigenheimhypothek) oder eine Investition (z. B. eine monatliche Spareinlage) sein.

Für alle Argumente gilt, dass Geldbeträge, die ausgezahlt werden (etwa Spareinlagen), durch negative Zahlen und Geldbeträge, die eingenommen werden (etwa Dividenden), durch positive Zahlen dargestellt werden.

Rate wird mit Iteration berechnet. Beginnend mit dem Wert der Schätzung durchläuft Rate die Berechnung, bis das Ergebnis auf 0,00001 Prozent genau ist. Falls die Rate-Funktion nicht innerhalb von 20 Durchläufen ein Ergebnis findet, tritt ein Fehler auf. Wenn Ihre Schätzung 10 Prozent beträgt und Rate fehlschlägt, versuchen Sie es mit einem anderen Wert für die Schätzung.

Abfragebeispiel

Ausdruck	Ergebnisse
SELECT FinancialSample.*, (Rate([TermInYears]*12,-[MonthlyRePayment],[LoanAmount],0,0,0.1)*12) AS InterestRate FROM FinancialSample;	Gibt alle Felder aus der Tabelle "FinancialSample" und den jährlichen Zinssatz basierend auf "TermInYears", "MonthlyRePayment" und "LoanAmount" zurück und zeigt die Ergebnisse in der Spalte InterestRate an.

VBA-Beispiel

In diesem Beispiel wird die Rate-Funktion verwendet, um den Zinssatz eines Darlehens zu berechnen, wenn die Gesamtzahl der Zahlungen (TotPmts), der Betrag der Darlehenszahlung (Payment), der Barwert oder der Kapitalbetrag des Darlehens (PVal), der zukünftige Wert des Darlehens (FVal), einer Zahl, die angibt, ob die Zahlung am Anfang oder Ende des Zahlungszeitraums fällig ist (PayType), und eine Annäherung des erwarteten Zinssatzes (Guess).

Dim Fmt, FVal, Guess, PVal
Dim Payment, TotPmts, PayType, APR
' When payments are made.
Const ENDPERIOD = 0, BEGINPERIOD = 1    
Fmt = "##0.00"    ' Define percentage format.
FVal = 0    ' Usually 0 for a loan.
Guess = .1    ' Guess of 10 percent.
PVal = InputBox("How much did you borrow?")
Payment = InputBox("What's your monthly payment?")
TotPmts = InputBox("How many monthly payments do " & _
          "you have to make?")
PayType = MsgBox("Do you make payments at the end " & _
          "of the month?", vbYesNo)
If PayType = vbNo Then 
    PayType = BEGINPERIOD 
    Else PayType = ENDPERIOD
End If
APR = (Rate(TotPmts, -Payment, PVal, _
      FVal, PayType, Guess) * 12) * 100
MsgBox "Your interest rate is " & _
    Format(CInt(APR), Fmt) & " percent."