Vrátí hodnotu Typu Double určující vnitřní výnosovou sazbu série pravidelných peněžních toků (plateb a příjmů).

Syntaxe

IRR( hodnoty () [, odhad ] )

Syntaxe funkceRR obsahuje následující 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).

guess

Nepovinný argument. Variant určující hodnotu, kterou odhadáte, vrátí vrátí služba IRR. Pokud tento znak není vynechán, je odhad 0,1 (10 procent).


Poznámky

Míra výnosu je úroková míra investice zahrnující platby a příjmy, které jsou v pravidelných intervalech.

FunkceRR 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í. Peněžní tok pro každé období není třeba opravovat, protože jde o anuitu.

IRR se počítá iterací. Od hodnoty odhadu se hodnotaIRR projde výpočtem tak dlouho,dokud nebude výsledek s přesností na 0,00001 procenta. Pokud se po 20 pokusech nenajde výsledek, je výsledek neúspěšný.

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říkladu vrátí funkce MÍRA.VÝNOSU vnitřní výnosové sazby pro sérii 5 peněžních toků obsažených v argumentu Values(). První maticový prvek je záporný peněžní tok představující počáteční náklady podniku. Zbývající 4 peněžní toky představují kladné peněžní toky pro následující 4 roky. Guess je odhadovaná vnitřní míra výnosu.

Dim Guess, Fmt, RetRate, Msg
Static Values(5) As Double ' Set up array.
Guess = .1 ' Guess starts at 10 percent.
Fmt = "#0.00" ' Define percentage 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 = IRR(Values(), Guess) * 100
Msg = "The internal rate of return for these " & _
"five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent."
MsgBox Msg ' Display internal return rate.

Potřebujete další pomoc?

Rozšiřte své znalosti a dovednosti
Projít školení
Získejte nové funkce jako první
Připojit se systém Microsoft Office insiderům

Byly tyto informace užitečné?

Jak jste spokojeni s kvalitou překladu?
Co ovlivnilo váš názor?

Děkujeme za váš názor!

×