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, MsgStatic 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) = 25000Values(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
