Returnerer et langt flyttall som angir den endrede interne returraten for en serie periodiske kontantstrømmer (innbetalinger og inntekter).
Syntaks
MODIR( values (); finance_rate, reinvest_rate)
Syntaksen for funksjonen MODIR har følgende argumenter:
Argument |
Beskrivelse |
verdier () |
Obligatorisk. Matrise med langt flyttall som angir kontantstrømverdier. Matrisen må inneholde minst én negativ verdi (en betaling) og én positiv verdi (en inntekt). |
finance_rate |
Obligatorisk. Langt flyttall som angir rentesatsen som betales som finansieringskostnader. |
reinvest_rate |
Obligatorisk. Langt flyttall som angir rentesats mottatt på gevinster fra kontantreinvestering. |
Kommentarer
Den endrede internrenten er internrenten når betalinger og inntekter finansieres til ulike satser. MIRR-funksjonen tar hensyn til både investeringskostnadene (finance_rate) og rentesatsen som mottas ved reinvestering av kontanter (reinvest_rate).
Argumentene finance_rate og reinvest_rate er prosentdeler uttrykt som desimalverdier. 12 prosent uttrykkes for eksempel som 0,12.
MODIR-funksjonen bruker rekkefølgen på verdiene i matrisen til å tolke rekkefølgen på betalinger og inntekter. Pass på at du setter inn betalingene og inntektene i riktig rekkefølge.
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker MIRR-funksjonen til å returnere den endrede interne returraten for en serie kontantstrømmer i matrisen Values(). LoanAPR representerer finansieringsrenten, og InvAPR representerer renten som mottas ved reinvestering.
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