Returnerar ett värde av data som anger internräntan för en serie periodiska betalningar (betalningar och kvitton).
Syntax
IR( värden () [, gissning ] )
Syntaxen för funktionen IR 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). |
|
guess |
Valfritt. Variant som anger det värde du uppskattar returneras av IR. Om argumentet utelämnas är gissning 0,1 (10 procent). |
Kommentarer
Internräntan är den ränta som erhålls för en investering och som består av in- och utbetalningar med jämna mellanrum.
IR-funktionen 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. Kassaflödet för varje period behöver inte vara fast, som det är för en annuitet.
IR beräknas med iteration. Från och med värdet för gissning växlar IRR genom beräkningen tills resultatet är korrekt till inom 0,00001 procent. Om IR inte kan hitta ett resultat efter 20 försök misslyckas det.
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 returnerar funktionen IR internräntan för en serie på 5 betalningar som finns i matrisen Values(). Det första matriselementet är ett negativt kassaflöde som representerar kostnader för företagsstart. De återstående 4 betalningarna utgör positiva betalningar för de följande fyra åren. Guess är den uppskattade internräntan.
Dim Guess, Fmt, RetRate, Msg
Static Values(5) As Double ' Set up array.
Guess = .1 ' Guess starts at 10 percent.
Fmt = "#0.00" ' Define percentage 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 = IRR(Values(), Guess) * 100
Msg = "The internal rate of return for these " & _
"five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent."
MsgBox Msg ' Display internal return rate.
