Vraća vrednost Double, koja navodi izmenjenu internu kamatnu stopu za niz periodičnih tokova novca (plaćanja i prihodi).
Sintaksa
MIRR(vrednosti (), finance_rate, reinvest_rate)
Sintaksa funkcije MIRR ima sledeće argumente:
| Argument | Opis |
|---|---|
| Vrednosti () | 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. Dvaput navedite kamatnu stopu koja se plaća kao cena finansiranja. |
| reinvest_rate | Obavezno. Dvostruko određivanje kamatne stope koja se dobija na dobitke od ponovnog ulaganja gotovine. |
Napomene
Izmenjena interna stopa prinosa je interna stopa prinosa kada se plaćanja i prihodi finansiraju po različitim stopama. Funkcija MIRR uzima u obzir i troškove investicije (finance_rate) i kamatnu stopu koja se dobija posle ponovnog ulaganja novca (reinvest_rate).
Argumenti finance_rate i reinvest_rate predstavljaju procente izražene kao decimalne vrednosti. Na primer, 12 procenata je izraženo kao 0,12.
Funkcija MIRR koristi redosled vrednosti u nizu kako bi interpretirala redosled 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 kako bi se dobila izmenjena interna kamatna stopa za grupu tokova novca sadržanu u nizu Values().
LoanAPR Predstavlja kamatu na finansiranje i predstavlja kamatnu stopu InvAPR koja se dobija na ponovo 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