' Microsoft.VisualBasic.Financial
''' <summary>Возвращает значение типа Double, определяющее внутреннюю ставку доходности для ряда периодических денежных потоков (платежей и поступлений).</summary>
''' <returns>Возвращает значение типа Double, определяющее внутреннюю ставку доходности для ряда периодических денежных потоков (платежей и поступлений).</returns>
''' <param name="ValueArray">Обязательный параметр.Массив значений типа Double, определяющий значения денежных операций.Этот массив должен содержать по крайней мере одно отрицательное значение (платеж) и одно положительное значение (поступление).</param>
''' <param name="Guess">Необязательный параметр.Объект, задающий значение, которое будет возвращено функцией IRR.Если этот параметр опущен, используется значение <paramref name="Guess" />, равное 0,1 (10 процентам).</param>
''' <exception cref="T:System.ArgumentException">Указаны недопустимые значения аргументов массива или <paramref name="Guess" /> &lt;= -1.</exception>
''' <filterpriority>1</filterpriority>
Public Shared Function IRR(ByRef ValueArray As Double(), Optional Guess As Double=0.1) As Double
	Dim upperBound As Integer
	Try
		upperBound = ValueArray.GetUpperBound(0)
	Catch ex As StackOverflowException
		Throw ex
	Catch ex2 As OutOfMemoryException
		Throw ex2
	Catch ex3 As ThreadAbortException
		Throw ex3
	Catch ex_1B As Exception
		Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValue1", New String()() = { "ValueArray" }))
	End Try
	' The following expression was wrapped in a checked-expression
	Dim num As Integer = upperBound + 1
	If Guess <= -1.0 Then
		Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValue1", New String()() = { "Guess" }))
	End If
	If num <= 1 Then
		Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValue1", New String()() = { "ValueArray" }))
	End If
	Dim num2 As Double
	If ValueArray(0) > 0.0 Then
		num2 = ValueArray(0)
	Else
		num2 = -ValueArray(0)
	End If
	Dim arg_BF_0 As Integer = 0
	Dim num3 As Integer = upperBound
	Dim i As Integer
	' The following expression was wrapped in a checked-expression
	i = arg_BF_0
	While i <= num3
		If ValueArray(i) > num2 Then
			num2 = ValueArray(i)
		Else
			If-ValueArray(i) > num2 Then
				num2 = -ValueArray(i)
			End If
		End If
		i = i + 1
	End While
	Dim num4 As Double = num2 * 1E-07 * 0.01
	Dim num5 As Double = Guess
	Dim num6 As Double = Financial.OptPV2(ValueArray, num5)
	Dim num7 As Double
	If num6 > 0.0 Then
		num7 = num5 + 1E-05
	Else
		num7 = num5 - 1E-05
	End If
	If num7 <= -1.0 Then
		Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValue1", New String()() = { "Rate" }))
	End If
	Dim num8 As Double = Financial.OptPV2(ValueArray, num7)
	i = 0
	While True
		If num8 = num6 Then
			If num7 > num5 Then
				num5 -= 1E-05
			Else
				num5 += 1E-05
			End If
			num6 = Financial.OptPV2(ValueArray, num5)
			If num8 = num6 Then
				Exit While
			End If
		End If
		num5 = num7 - (num7 - num5) * num8 / (num8 - num6)
		If num5 <= -1.0 Then
			num5 = (num7 - 1.0) * 0.5
		End If
		num6 = Financial.OptPV2(ValueArray, num5)
		If num5 > num7 Then
			num2 = num5 - num7
		Else
			num2 = num7 - num5
		End If
		Dim num9 As Double
		If num6 > 0.0 Then
			num9 = num6
		Else
			num9 = -num6
		End If
		If num9 < num4 AndAlso num2 < 1E-07 Then
			Return num5
		End If
		num2 = num6
		num6 = num8
		num8 = num2
		num2 = num5
		num5 = num7
		num7 = num2
		' The following expression was wrapped in a checked-statement
		i += 1
		If i > 39 Then
			GoTo Block_17
		End If
	End While
	Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValue"))
	Block_17:
	Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValue"))
End Function