Vraća dvostruki broj koji navodi izmenjenu internu stopu prinosa za niz periodičnih tokova novca (plaćanja i priznanice).
Sintaksa
MIRR( vrednosti (), finance_rate, reinvest_rate)
Sintaksa funkcije MIRR 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). |
|
finance_rate |
Obavezno. Double koji navodi kamatnu stopu koja se plaća kao troškovi finansiranja. |
|
reinvest_rate |
Obavezno. Double specifying interest rate received on gains from cash reinvestment. |
Napomene
Izmenjena interna kamatna stopa je interna kamatna stopa kada se rate i priznanice finansiraju različitim kamatnim stopama. Funkcija MIRR uzima u koštac investicije (finance_rate) i kamatnu stopu koja se dobija za ponovni ulaganje novca (reinvest_rate).
Argumenti finance_rate i reinvest_rate su procenti izraženi kao decimalne vrednosti. Na primer, 12 procenata se izražava kao 0,12.
Funkcija MIRR koristi redosled vrednosti u nizu za interpretiranje redosleda plaćanja i prihoda. Pazite da vrednosti plaćanja i prihoda unesete ispravnim redosledom.
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.
Ovaj primer koristi funkciju MIRR za vraćanje izmenjene interne stope prinosa za niz novčanih tokova sadržanih u nizu Values(). LoanAPR predstavlja finansijsku kamatu, a InvAPR predstavlja kamatnu stopu koja se dobija na ponovno investiranje.
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
