Returnerar ett värde av data som anger den ändrade internräntan för en serie periodiska betalningar (betalningar och kvitton).
Syntax
MODIR( värden (), finance_rate, reinvest_rate)
Syntaxen för funktionen MODIR har följande argument:
Argument |
Beskrivning |
värden () |
Obligatoriskt. Matris med Double-värden där penningflödets värden anges. Matrisen måste innehålla minst ett negativt tal (en betalning) och ett positivt tal (en inbetalning). |
finance_rate |
Obligatoriskt. Double (Dubbel ) anger räntesatsen som betalas som finansieringskostnad. |
reinvest_rate |
Obligatoriskt. Double (Double ) anger den ränta som erhålls på vinster från återinvestering av kontanter. |
Kommentarer
Den modifierade internräntan är internräntan när betalningar och kvitton finansieras till olika nivåer. Funktionen MODIR tar både hänsyn till investeringskostnaden (finance_rate) och den ränta som erhålls på återinvestering av kontanter (reinvest_rate).
Argumenten finance_rate och reinvest_rate är procenttal uttryckta som decimalvärden. Till exempel uttrycks 12 procent som 0,12.
Funktionen MODIR använder ordningsföljden på värden i matrisen för att tolka ordningen på betalningar och intäkter. Därför måste du vara noggrann när du anger matrisens olika värden.
Exempel
Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används funktionen MODIR för att returnera den modifierade internräntan för en serie betalningar som finns i matrisen Values(). LoanAPR representerar finansieringsräntan och InvAPR representerar den ränta som erhålls på återinvestering.
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