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