Pateikia dvigubą skaičių, nurodantį periodinių pinigų srautų sekos vidinę pelno normą (mokėjimai ir įplaukos).
Sintaksė
IRR( values () [, guess ] )
Funkcijos IRR sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
values () |
Būtinas. Dvigubo skaičiaus masyvas nurodantis pinigų srauto vertes. Masyve turi būti bent viena neigiama vertė (mokėjimas) ir viena teigiama vertė (pajamos). |
|
guess |
Pasirinktinis. Variantą, nurodantį jūsų apskaičiuotą reikšmę, pateiks IRR. Jei nenurodyta, spėjimas yra 0,1 (10 procentų). |
Pastabos
Vidinė grąžos norma yra palūkanų norma, gauta už investiciją, sudarytą iš reguliariai atliekamų mokėjimų ir įplaukų.
Funkcija IRR naudoja reikšmių tvarką masyve mokėjimų ir įplaukų tvarkai interpretuoti. Įsitikinkite, kad įvedėte mokėjimo ir pajamų laukų vertes teisinga eilės tvarka. Kiekvieno laikotarpio grynųjų pinigų srauto nereikia fiksuoti, nes tai anuitetas.
IRR apskaičiuojama iteracijos būdu. Pradedant nuo spėjimo reikšmės, IRR eina per skaičiavimą, kol rezultatas yra tikslus ne daugiau kaip 0,00001 procentų. Jei IRR negali rasti rezultato po 20 bandymų, nepavyksta.
Pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje funkcija IRR grąžina 5 pinigų srautų sekų, esančių masyve Values(), vidinę pelno normą. Pirmasis masyvo elementas yra neigiamas pinigų srautas, žymintis veiklos pradžios išlaidas. Likę 4 pinigų srautai rodo teigiamus grynųjų pinigų srautus per paskesnius 4 metus. Guess yra apskaičiuota vidinė grąžos norma.
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.
