Funkce MIRR

Platí pro
Access pro Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Vrátí hodnotu Double určující modifikovanou vnitřní míru výnosnosti pro sérii pravidelných peněžních toků (plateb a příjmů).

Syntaxe

MOD.MÍRA.VÝNOSNOSTI(hodnoty (), finance_rate, reinvest_rate)

Syntaxe funkce MOD.MÍRA.VÝNOSNOSTI obsahuje tyto argumenty:

Argument Popis
Hodnoty () Povinný argument. Matice hodnot Double určující hodnoty peněžních toků. Matice musí obsahovat aspoň jednu zápornou hodnotu (platba) a jednu kladnou hodnotu (příjem).
finance_rate Povinný argument. Dvojitá specifikace úrokové sazby placené jako náklady na financování.
reinvest_rate Povinný argument. Dvojitá specifikace úrokové sazby přijaté ze zisků z reinvestic hotovosti.

    

Poznámky

Modifikované vnitřní výnosové procento je vnitřní výnosové procento, když jsou platby a příjmy financovány různými sazbami. Funkce MOD.MÍRA.VÝNOSNOSTI bere v úvahu jak náklady na investici (finance_rate), tak úrokovou sazbu získanou z reinvestování hotovosti (reinvest_rate).

Argumenty finance_rate a reinvest_rate jsou procenta vyjádřená desetinnými čísly. Například 12 procent je vyjádřeno jako 0,12.

Funkce MOD.MÍRA.VÝNOSNOSTI používá pořadí hodnot v matici k interpretaci pořadí plateb a příjmů. Platby a příjmy je nutné zadat ve správném pořadí.

Příklad

Poznámka

Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

V tomto příkladě se používá funkce MOD.MÍRA.VÝNOSNOSTI k vrácení modifikované vnitřní výnosnosti série peněžních toků obsažených v matici Values(). LoanAPR představuje úrok financování a InvAPR úrokovou sazbu získanou z reinvestic.

Dim LoanAPR, InvAPR, Fmt, RetRate, Msg
Static Values(5) As Double    ' Set up array.
LoanAPR = .1    ' Loan rate.
InvAPR = .12    ' Reinvestment rate.
Fmt = "#0.00"    ' Define money format.
Values(0) = -70000    ' Business start-up costs.
' Positive cash flows reflecting income 
' for four successive years.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
' Calculate internal rate.
RetRate = MIRR(Values(), LoanAPR, InvAPR)
Msg = "The modified internal rate of return " & _
      "for these five cash flows is"
Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."
' Display internal return rate.
MsgBox Msg