Tagastab perioodiliste rahavoogude (maksed ja sissetulekud) sarja sisemist tasuvusmäära tähistava topelttäpsusega arvu.
Süntaks
IRR( väärtused () [, hinnang ] )
Funktsiooni IRR süntaksil on järgmised argumendid.
|
Argument |
Kirjeldus |
|
väärtused () |
Nõutav. Rahavooväärtusi täpsustava kahekordse massiiv. Massiivis peab sisalduma vähemalt üks negatiivne väärtus (makse) ja üks positiivne väärtus (sissetulek). |
|
hinnang |
Valikuline. Funktsiooni IRR tagastatavat hinnangulist väärtust tähistav Variant. Kui see ära jäetakse, on hinnangu väärtus 0,1 (10 protsenti). |
Kommentaarid
Sisemine tasuvusmäär on regulaarsetelt maksetelt ja sissetulekutelt saadav intressimäär.
Funktsioon IRR kasutab maksete ja sissetulekute järjestuse tõlgendamiseks väärtuste järjestust massiivis. Sisestage maksete ja sissetulekute väärtused kindlasti õiges järjestuses. Erinevalt annuiteedist ei pea iga perioodi rahavoog olema fikseeritud.
IRR arvutatakse iteratsioonimeetodil. IRR alustab väärtusest hinnang ning arvutab, kuni on saavutatud 0,00001 protsendise täpsusega tulemus. Kui IRR pärast 20 katset tulemit ei leia, siis see nurjub.
Näide
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites tagastab funktsioon IRR massiivis Values() sisalduva 5 rahavoo sisemise tasuvusmäära. Esimene massiivielement on ettevõtte alustamiskulusid tähistav negatiivne rahavoog. Ülejäänud neli rahavoogu tähistavad järgneva nelja aasta positiivseid rahavooge. Guess on hinnanguline sisemine tasuvusmäär.
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.
