Returnerar en Double-variabel som anger internräntan för en serie periodiska betalningar (in- och utbetalningar).
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). |
| gissa | Valfritt. Variant som anger värdet som uppskattas 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 som sker med jämna mellanrum.
Med funktionen IR används ordningsföljden för värdena i matrisen för att tolka ordningsföljden för in- och utbetalningarna. 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 genom iteration. IR startar med värdet gissning ochupprepar beräkningen tills resultatet ligger inom en noggrannhet av 0,00001 %. 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 IR-funktionen internräntan för en serie på 5 penningflöden som finns i matrisen Values(). Det första matriselementet är ett negativt kassaflöde som representerar kostnader för att starta ett företag. De återstående 4 kassaflödena representerar positiva kassaflöden för de efterföljande 4 å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.