Функция IRR

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

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

Норма прибыли представляет собой процент по инвестициям, получаемый в результате регулярно происходящих выплат и поступлений денег

Порядок операций (выплат и поступлений) функция IRR определяет по номерам элементов массива. По этой причине взаимное расположение элементов обязательно должно соответствовать действительности. Сами элементы массива вовсе не обязаны в данном случае быть одинаковыми

Значение функции IRR определяется итерационным путем. В качестве начального значения используется параметр Guess. Итерации завершаются по достижении точности в 0,00001 процента. Если после 20 итераций результат получить не удается, функция IRR завершает итерационный цикл

' В данном примере функция IRR
' применяется для вычисления нормы прибыли по пяти
' операциям, занесенным в массив Values(). Первый
' элемент массива имеет отрицательное значение и
' соответствует начальным затратам на организацию
' бизнеса. Оставшиеся четыре элемента имеют
' положительные значения и отражают прибыль за четыре
' следующих года. Переменная Guess содержит начальное значение для расчета нормы прибыли
Dim Guess, Fmt, RetRate, Msg
Static Values(5) As Double ' Объявляем массив
Guess = .1 ' Начинаем с 10 процентов
Fmt = "#0.00" ' Процентный формат
Values(0) = -70000 ' Затраты на организацию бизнеса.
' Положительные суммы,отвечающие доходу за 4 года
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = IRR(Values(), Guess) * 100 ' Норма прибыли
Msg = "The internal rate of return for these five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent"
MsgBox Msg ' Выводим норму прибыли