Функция MIRR

Функция MIRR рассчитывет норму прибыли для ряда финансовых операций, которые рассматриваются как ряд последовательных расходов-инвестиций,(отрицательные величины) и поступлений(положительные). При этом предполагается, что инвестици требуют регулярных расходов на их обслуживание(например, в виде выплат по ссуде), задаваемых аргументом FinanceRate, в то время как поступления приносят регулярных доход, ставка которого задается аргументом ReinvestRate

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

Аргументы FinanceRate и ReinvestRate задаются как десятичные дроби. Например, значение 12 процентов выражается как 0,12

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

' В данном примере функция MIRR
' используется для расчета модифицированной нормы
' прибыли по операциям, занесенным в массив Values()
' LoanAPR представляет ставку по финансированию,
' а InvAPR - процент по реинвестициям

Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double ' Объявляет массив
LoanAPR = .1 ' Ставка по займу
InvAPR = .12 ' Ставка по реинвестициям
Fmt = "#0.00" ' Денежный формат
Values(0) = -70000 ' Затраты на организацию бизнеса
' Положительные суммы, отвечающие доходу за 4 года
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = MIRR(Values(), LoanAPR, InvAPR)

Msg = "Модифицированная норма прибыли по пяти операциям составляет "
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."
Print Msg ' Выводим норму прибыли