Функция MIRR

Статья
11/05/2008

Обновлен: Ноябрь 2007

Возвращает значение типа Double, определяющее внутреннюю ставку доходности для ряда периодических денежных потоков (платежей и поступлений).

Function MIRR( _
   ByRef ValueArray() As Double, _
   ByVal FinanceRate As Double, _
   ByVal ReinvestRate As Double _
) As Double

Параметры

ValueArray
Обязательный параметр. Массив значений типа Double, определяющий значения денежных операций. Этот массив должен содержать хотя бы одно отрицательное значение (платеж) и одно положительное значение (поступление).
FinanceRate
Требуется.Double, определяющее процентную ставку оплаты как себестоимость финансирования.
ReinvestRate
Требуется. Значение типа Double, определяющее процентную ставку доходов от реинвестирования денежных средств.

Исключения

Тип исключения	Номер ошибки	Условия
ArgumentException	5	Ранг ValueArray не равен 1, FinanceRate =-1, или ReinvestRate =-1
DivideByZeroException	11	Произошло деление на ноль.

См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует заменять такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.

Заметки

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

FinanceRate и ReinvestRatearguments являются процентами, выраженными в виде десятичных значений. Например, 12 процентов задаются как 0,12.

В функции MIRR платежи и поступления интерпретируются в том порядке, в котором они указаны в массиве. Убедитесь, что значения платежей и поступлений упорядочены правильно.

Пример

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

' Define money format.
Dim MoneyFmt As String = "###,##0.00"
' Define percentage format.
Dim PercentFmt As String = "#0.00"

Dim values(4) As Double
' Business start-up costs.
values(0) = -70000
' Positive cash flows reflecting income for four successive years.
values(1) = 22000
values(2) = 25000
values(3) = 28000
values(4) = 31000

' Use the MIRR function to calculate the internal return rate.
' Set the loan rate.
Dim LoanAPR As Double = 0.1
' Set the reinvestment rate.
Dim InvAPR As Double = 0.12
' Calculate internal rate.
Dim RetRate As Double = MIRR(values, LoanAPR, InvAPR)
' Display internal return rate.
MsgBox("The modified internal rate of return for these cash flows is " & _
    Format(Math.Abs(RetRate) * 100, CStr(PercentFmt)) & "%.")