Функция МВСД
Возвращает значение типа Double, определяющее измененную внутреннюю норму прибыли для последовательности периодических потоков денежных средств (платежи и поступления).
Синтаксис
MIRR(values( ), finance_rate, reinvest_rate)
Функция MIRR использует следующие именованные аргументы:
Part | Описание |
---|---|
values( ) | Обязательно. Массив с типом Double, определяющий значения денежного потока. Этот массив должен содержать по крайней мере одно отрицательное значение (платеж) и одно положительное значение (получение). |
finance_rate | Обязательно. Значение типа Double, определяющее процентную ставку, представляющую собой стоимость финансирования. |
reinvest_rate | Обязательно. Значение типа Double, определяющее процентную ставку прибыли, получаемую благодаря реинвестированию денежных средств. |
Замечания
Измененная внутренняя норма прибыли — это внутренняя норма прибыли для случая, когда для финансирования платежей и поступлений используются различные ставки. Функция MIRR учитывает как стоимость инвестиций (finance_rate), так и процентную ставку, получаемую от реинвестирования денежных средств (reinvest_rate).
Аргументыfinance_rate и reinvest_rate — это проценты, выраженные в виде десятичных значений. Например, 12 процентов представляется как 0,12.
Функция MIRR использует порядок значений в массиве для интерпретации порядка платежей и поступлений. Следите, чтобы значения платежей и поступлений указывались в правильном порядке.
Пример
В этом примере функция MIRR используется для возврата измененной внутренней нормы доходности для ряда денежных потоков, содержащихся в массиве Values()
.
LoanAPR
представляет проценты по финансированию и InvAPR
процентную ставку, полученную при реинвестировании.
Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double ' Set up array.
LoanAPR = .1 ' Loan rate.
InvAPR = .12 ' Reinvestment rate.
Fmt = "#0.00" ' Define money format.
Values(0) = -70000 ' Business start-up costs.
' Positive cash flows reflecting income for four successive years.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = MIRR(Values(), LoanAPR, InvAPR) ' Calculate internal rate.
Msg = "The modified internal rate of return for these five cash flows is"
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."
MsgBox Msg ' Display internal return rate.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.