Vraća dvostruki broj koji navodi internu stopu prinosa za niz periodičnih tokova novca (plaćanja i priznanice).
Sintaksa
IRR( vrednosti () [, procena ] )
Sintaksa funkcije IRR ima sledeće argumente:
Argument |
Opis |
values () |
Obavezno. Niz Double vrednosti koje navode vrednosti toka novca. Niz mora da sadrži najmanje jednu negativnu vrednost (plaćanje) i jednu pozitivnu vrednost (prihod). |
procena |
Opcionalno. IRR će vratiti varijantu koja navodi vrednost koju ste procenili. Ako je izostavljena, procena je 0,1 (10 procenata). |
Napomene
Interna stopa prinosa je kamatna stopa koja se dobija za investiciju koja se sastoji od plaćanja i prihoda u redovnim intervalima.
Funkcija IRR koristi redosled vrednosti u nizu za interpretiranje redosleda plaćanja i prihoda. Pazite da vrednosti plaćanja i prihoda unesete ispravnim redosledom. Tok novca za svaki period ne mora da se popravi, kao što je to za anuitet.
IRR se izračunava iterijom. Počevši od vrednosti procene, funkcija IRR kruži kroz izračunavanje dok rezultat ne bude tačan u okviru 0,00001 procenata. Ako IRR ne može da pronađe rezultat posle 20 pokušavanja, neće uspeti.
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
U ovom primeru, funkcija IRR daje internu stopu prinosa za niz od 5 tokova novca koji se nalaze u nizu Values(). Prvi element niza je negativan tok novca koji predstavlja poslovne početne troškove. Preostala 4 toka novca predstavljaju pozitivne novčane tokova u naredne 4 godine. Guess je procenjena interna stopa prinosa.
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.