Funkcja Rate

Zwraca liczbę podwójnej precyzji określającą stopę procentową dla pojedynczego okresu raty rocznej.

Składnia

Rate (liczba_okresów, rata;wb [, wp ] [, typ ] [, przypuszczenie ] )

W składni funkcji Rate występują następujące argumenty:

Argumenty argumentów	Opis
liczba_okresów	Argument wymagany. Liczba podwójnej precyzji określająca całkowitą liczbę okresów raty rocznej. Na przykład w przypadku czteroletniego kredytu samochodowego ze spłatami miesięcznymi całkowita liczba okresów spłat wynosi 4 * 12 (czyli 48).
rata	Argument wymagany. Liczba podwójnej precyzji określająca płatność dokonywaną w każdym okresie. Rata obejmuje zazwyczaj kapitał oraz odsetki i te wartości nie zmieniają się w okresie obowiązywania raty rocznej.
PV	Argument wymagany. Liczba podwójnej precyzji określająca wartość bieżącą lub dzisiejszą serię przyszłych płatności lub wpływów. Na przykład w przypadku zaciągania pożyczki na zakup samochodu kwota pożyczki to odpowiadająca pożyczkodawcy miesięczna spłata samochodu.
wp	Argument opcjonalny. Wariant określający wartość przyszłą, czyli saldo kasowe, które ma zostać osiągnięte po dokonaniu ostatniej płatności. Na przykład w przypadku pożyczki wartość przyszła wynosi 0 zł, ponieważ tyle będzie wynosić saldo po dokonaniu ostatniej płatności. Natomiast w przypadku oszczędności na edukację dziecka, których celem jest zebranie 50 000 zł w ciągu 18 lat, wartość przyszła wynosi 50 000 zł. W razie pominięcia tego argumentu przyjmowana jest wartość 0.
typ	Argument opcjonalny. Wariant określający numer wskazujący termin wymagalności płatności. Wartość 0 oznacza płatności na końcu okresu, a wartość 1 oznacza płatności na początku okresu. W razie pominięcia tego argumentu przyjmowana jest wartość 0.
zgadnij	Argument opcjonalny. Wariant określający szacowaną wartość zostanie zwrócony przez Rate. W przypadku pominięcia tego argumentu wynik wynosi 0,1 (10%).

Uwagi

Rata roczna to seria stałych płatności pieniężnych dokonywanych w danym okresie. Może to być pożyczka (na przykład kredyt hipoteczny) lub inwestycja (na przykład miesięczny plan oszczędnościowy).

Przy wszystkich argumentach środki wpłacane przez Ciebie, takie jak wpłaty na rachunki oszczędnościowe, wyrażone są liczbami ujemnymi, podczas gdy przychody, takie jak wypłaty z tytułu dywidend, wyrażone są liczbami dodatnimi.

Stopa jest obliczana przez iterację. Zaczynając od wartości przypuszczenia, funkcja Rate powtarza obliczenia do momentu, gdy wynik zostanie osiągnięty z dokładnością do 0,00001%. Jeśli funkcja Rate nie może znaleźć wyniku po 20 próbach, kończy się niepowodzeniem. Jeśli przypuszczenie wynosi 10%, a stopa się nie powiedzie, spróbuj użyć innej wartości przypuszczenia.

Przykład zapytania

Wyrażenie	Rezultat
SELECT FinancialSample.*, (Rate([TermInYears]*12,-[MonthlyRePayment],[LoanAmount],0,0,0.1)*12) AS InterestRate FROM FinancialSample;	Zwraca wszystkie pola z tabeli "PróbkaFinansowa" i roczną stopę procentową na podstawie wartości "TermInYears", "MonthlyRePayment" i "LoanAmount", a także wyświetla wyniki w kolumnie InterestRate.

Przykład kodu VBA

W tym przykładzie użyto funkcji Rate do obliczenia stopy procentowej pożyczki przy podanej całkowitej liczbie spłat (TotPmts), kwocie spłaty pożyczki (Payment), wartości bieżącej lub kapitale pożyczki (PVal), przyszłej wartości pożyczki (FVal), liczbie, która wskazuje, czy płatność jest wymagalna na początku, czy na końcu okresu płatności (PayType), oraz przybliżenie oczekiwanej stopy procentowej (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."