Функция Rate

Возвращает значение типа Double, определяющее годовую процентную ставку.

Синтаксис

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

Функция Rate имеет следующие именованные аргументы.

Part Описание
nper Обязательно. Тип Double; указывает общее количество выплат по сроку в ежегодных платежах. Например, если вы ежемесячно совершаете платежи по четырехлетнему автокредиту, ваш кредит включает в общей сложности 4 * 12 (или 48) выплат по сроку.
Pmt Обязательно. Тип Double; задает выполнение платежа за каждый период. Платежи обычно содержат субъект и процент, который не изменяется на протяжении срока действия ежегодных выплат.
Pv Обязательно. Тип Double; указывает текущую стоимость (или стоимость на сегодняшний день) серии будущих платежей или поступлений. Например, когда вы занимаете деньги для покупки автомобиля, сумма кредита представляет собой приведенную сумму для кредитора ежемесячных платежей за автомобиль, которые вы будете делать.
Fv Необязательный параметр. Вариант с указанием будущей стоимости или остатка денежных средств после окончательного платежа. Например, будущая стоимость кредита составляет 0 долл. США, так как это его стоимость после окончательного платежа. Тем не менее, если вы хотите сэкономить $ 50000 в течение 18 лет на образование вашего ребенка, $ 50000 является будущей стоимостью. Если данный аргумент опущен, то подразумевается, что он равен 0.
type Необязательный параметр. Значение типа Variant, определяющее, когда наступает срок оплаты. Используйте значение 0, если срок оплаты приходится на конец периода платежа, или значение 1, если срок оплаты приходится на начало этого периода. Если данный аргумент опущен, то подразумевается, что он равен 0.
Думаю Необязательный параметр. Значение типа Variant, определяющее ожидаемый результат функции Rate. Если аргумент guess опущен, принимается значение 0,1 (10 процентов).

Замечания

Ежегодная выплата представляет собой серию фиксированных платежей, осуществляемых в течение некоторого периода времени. Ежегодная выплата может относиться к займу (например, ипотеке) или к инвестициям (например, ежемесячный план накопления сбережений).

Для всех аргументов выплаченные деньги (например, авансовые платежи для снижения общей стоимости) представлены отрицательными числами, а полученные деньги (например, чеки на получение дивидендов) представлены положительными числами.

Функция Rate вычисляется с помощью итераций. Начиная с ожидаемого значения guess функция Rate выполняет циклические вычисления, пока не добьется точности результата в пределах 0,00001 процента. Если функция Rate не может получить результат после 20 попыток, она завершается ошибкой. Если значение guess составляет 10 процентов и функция Rate завершается ошибкой, попробуйте присвоить параметру guess другое значение.

Пример

В этом примере функция Rate используется для вычисления процентной ставки по кредиту с учетом общего количества платежей (TotPmts), суммы платежа по кредиту (Payment), текущей стоимости или основного долга кредита (), будущей стоимости кредита (FValPVal), числа, указывающего, должен ли платеж производиться в начале или конце периода выплаты (PayType), и приближение ожидаемой процентной ставки (Guess).

Dim Fmt, FVal, Guess, PVal, Payment, TotPmts, PayType, APR
Const ENDPERIOD = 0, BEGINPERIOD = 1    ' When payments are made.
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
APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100
MsgBox "Your interest rate is " & Format(CInt(APR), Fmt) & " percent."

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.