Pateikia dvigubą skaičių, kuris nurodo dabartinę grynąją investicijų vertę, apskaičiuotą remiantis periodinių pinigų srautų sekomis (mokėjimais ir pajamomis) ir diskonto norma.
Sintaksė
NPV( rate, values ())
Funkcijos NPV sintaksę sudaro šie argumentai:
|
Argumentas |
Aprašas |
|
rate |
Būtinas. Dvigubas skaičius nurodo diskonto normą per laikotarpį, išreikštą dešimtainiu skaičiumi. |
|
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). |
Pastabos
Dabartinė grynoji investicijų vertė yra dabartinė būsimų mokėjimų ir pajamų serijos vertė.
Mokėjimų ir pajamų tvarkai nustatyti funkcija NPV naudoja verčių išdėstymo tvarką masyve. Įsitikinkite, kad įvedėte mokėjimo ir pajamų laukų vertes teisinga eilės tvarka.
Funkcijos NPV investavimas prasideda vieną laikotarpį anksčiau prieš pinigų srauto vertės datą ir baigiasi su paskutine masyve esančia pinigų srauto verte.
Dabartinės grynosios investicijų vertės skaičiavimas remiasi būsimu pinigų srautu. Jei jūsų pirmas pinigų srautas yra pirmojo laikotarpio pradžioje, pirmoji vertė turi būti įtraukta į vertę, kurią pateikia NPV, ji neturi būti įtraukta į pinigų srauto vertę, esančią vertėse().
Funkcija NPV yra panaši į funkciją PV (present value – dabartinė vertė), išskyrus tai, kad funkcija PV leidžia, kad pinigų srautai prasidėtų arba laikotarpio pradžioje, arba laikotarpio pabaigoje. Skirtingai nuo nepastovių funkcijos NPV pinigų srautų verčių, funkcijos PV pinigų srautai turi nesikeisti per visą investavimo laikotarpį.
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 naudojama funkcija NPV, grąžinanti pinigų srautų, esančių masyve Values(), sekos dabartinę grynąją vertę. RetRate nurodo fiksuotą vidinę grąžos normą.
Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double ' Set up array.
Fmt = "###,##0.00" ' Define money format.
Guess = .1 ' Guess starts at 10 percent.
RetRate = .0625 ' Set fixed internal rate.
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 net present value.
NetPVal = NPV(RetRate, Values())
Msg = "The net present value " & _
"of these cash flows is "
Msg = Msg & Format(NetPVal, Fmt) & "."
' Display net present value.
MsgBox Msg
