Palauttaa kaksinkertaisen tarkkuuden luvun, joka määrittää sisäisen korkokannan säännöllisille kassavirroille (maksuille ja saataville).
Syntaksi
SISÄINEN.KORKO( arvot () [, arvaus ] )
SISÄINEN.KORKO-funktion syntaksilla on seuraavat argumentit:
|
Argumentti |
Kuvaus |
|
arvot () |
Pakollinen. Double-tyyppiä oleva taulukko, joka määrittää kassavirta-arvot. Taulukon on sisällettävä vähintään yksi negatiivinen arvo (maksu) ja positiivinen arvo (saaminen). |
|
arvaus |
Valinnainen. Arvioimasi arvon määrittävä muuttuja palautetaan SISÄINEN.KORKO-funktiolla. Jos tämä jätetään pois, arvaus on 0,1 (10 prosenttia). |
Huomautuksia
Sisäinen korkokanta on säännöllisistä maksuista ja saatavista koostuvalle sijoitukselle saatu korkoprosentti.
SISÄINEN.KORKO-funktio käyttää matriisin arvojen järjestystä maksujen ja saatavien järjestyksen tulkitsemiseen. Varmista, että kirjoitat maksujen ja saatavien arvot oikeassa järjestyksessä. Kunkin jakson kassavirran ei tarvitse olla kiinteä, sillä kyseessä on annuiteetti.
SISÄINEN.KORKO lasketaan iteraatiolla. Arvosta arvaus aloittaen SISÄINEN.KORKO käy laskutoimitukset läpi, kunnes tulos on oikein 0,00001 prosentin tarkkuudella. Jos SISÄINEN.KORKO ei löydä tulosta 20 yrityksen jälkeen, toiminto epäonnistuu.
Esimerkki
Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä SISÄINEN.KORKO-funktiolla palautetaan sisäinen korkokanta viidelle matriisin Values() sisältämälle kassavirralle. Ensimmäinen matriisielementti on negatiivinen kassavirta, joka edustaa yrityksen aloituskustannuksia. Muut neljä kassavirtaa edustavat neljän seuraavan vuoden positiivisia kassavirtoja. Guess on arvioitu sisäinen korkokanta.
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.
