Rodyti viską

Slėpti viską

Grąžina Dvigubąjį (duomenų tipas Double: pagrindinis duomenų tipas, skirtas laikyti dvigubojo tikslumo slankiojo kablelio skaičius. Įsimenamas kaip 64 bitų dvejetainis skaičius, kurio reikšmės kinta nuo apytiksliai -1,797E308 iki -4,940E-324 (neigiamos), nuo 4,94E-324 iki 1,797E308 (teigiamos) ir 0.), nurodantį investicijos, paremtos periodiniais pinigų srautais (mokėjimai ir įplaukos) ir diskonto norma, grynąją dabartinę reikšmę.

Sintaksė

NPV(norma, reikšmės())

Funkcijos NPV sintaksės argumentai (argumentas: reikšmė, teikianti informaciją veiksmui, įvykiui, metodui, ypatybei, funkcijai arba procedūrai.):

Pastabos

Investicijos grynoji dabartinė vertė – tai dabartinė būsimų mokėjimų ir įplaukų sekos reikšmė.

Funkcija NPV naudoja reikšmių, esančių masyve, tvarką, interpretuoti mokėjimų ir įplaukų tvarką. Įsitikinkite, jog įvedate mokėjimų ir įplaukų reikšmes teisinga tvarka.

NPV investicija prasideda laikotarpiu anksčiau už pirmąją pinigų srauto reikšmę, o baigiasi paskutiniąja pinigų srauto reikšme masyve.

Grynosios dabartinės vertės skaičiavimas paremtas būsimais pinigų srautais. Jeigu jūsų pirmasis pinigų srautas yra pirmojo laikotarpio pradžioje, pirmoji reikšmė turi būti pridėta prie funkcijos NPV grąžintos reikšmės ir turi būti neįtraukta į pinigų srautų reikšmes, grąžintasvalues( ).

Funkcija NPV yra panaši į funkciją PV (dabartinė vertė), išskyrus, tai, kad funkcijoje PV pinigų srautai gali prasidėti arba periodo pradžioje, arba periodo pabaigoje. Skirtingai nuo kintančių NPV pinigų srautų reikšmių, PV pinigų srautai investicijoje turi būti fiksuoti.

Pavyzdys

 Pastaba   Toliau pateikiamuose pavyzdžiuose rodoma, kaip naudojama ši funkcija „Visual Basic for Applications“ (VBA) modulyje. Plačiau apie darbą su VBA žiūrėkite pasirinkę Nurodymai programuotojui išplečiamajame meniu šalia komandos Ieškoti ir įvedę į paieškos lauką vieną ar daugiau sąvokų.

Šiame pavyzdyje funkcija NPV grąžina pinigų srautų, nurodytų masyve Values(), grynąją dabartinę reikšmę. RetRate rodo fiksuotą vidinę įplaukų 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