Financial.MIRR(Double[], Double, Double) Metoda

Definice

Obor názvů:
Microsoft.VisualBasic
Sestavení:
Microsoft.VisualBasic.Core.dll
Sestavení:
Microsoft.VisualBasic.dll
Zdroj:
Financial.vb
Zdroj:
Financial.vb
Zdroj:
Financial.vb
Zdroj:
Financial.vb
Zdroj:
Financial.vb

Vrátí hodnotu určující upravenou vnitřní výnosnost pro řadu periodických peněžních toků (plateb a příjmů).

public:
 static double MIRR(cli::array <double> ^ % ValueArray, double FinanceRate, double ReinvestRate);
public static double MIRR(ref double[] ValueArray, double FinanceRate, double ReinvestRate);
static member MIRR : Double[] * double * double -> double
Public Function MIRR (ByRef ValueArray As Double(), FinanceRate As Double, ReinvestRate As Double) As Double

Parametry

ValueArray
Double[]

Required. Pole zadání hodnot peněžního Double toku Matice musí obsahovat aspoň jednu zápornou hodnotu (platba) a jednu kladnou hodnotu (příjem).

FinanceRate
Double

Required. Úroková sazba zaplacená jako náklady na financování.

ReinvestRate
Double

Required. Úroková sazba získaná z zisku z reinvestice hotovosti.

Návraty

Double

Upravená vnitřní výnosnost pro řadu pravidelných peněžních toků (plateb a příjmů).

Výjimky

ArgumentException

Pořadí ValueArray nerovná se 1, FinanceRate = -1 nebo ReinvestRate = -1

DivideByZeroException

Došlo k dělení nulou.

Příklady

Tento příklad používá MIRR funkci k vrácení upravené vnitřní výnosnosti pro řadu peněžních toků obsažených v poli Values(). LoanAPR představuje úrok z financování a InvAPR představuje úrokovou sazbu získanou při reinvestici.

' 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)) & "%.")

Poznámky

Upravená vnitřní míra výnosnosti je vnitřní míra výnosnosti, pokud jsou platby a příjmy financovány různými sazbami. Funkce MIRR bere v úvahu náklady na investici (FinanceRate) i úrokovou sazbu získanou při reinvestici hotovosti (ReinvestRate).

Argumenty FinanceRate jsou ReinvestRate procenta vyjádřená jako desetinné hodnoty. Například 12 procent je vyjádřeno jako 0,12.

Funkce MIRR používá pořadí hodnot v rámci pole k interpretaci pořadí plateb a příjmů. Platby a příjmy je nutné zadat ve správném pořadí.

Platí pro

Viz také