Annab vastuseks investeeringu puhasnüüdisväärtust täpsustava kahekordse, võttes aluseks perioodiliste rahavoogude sarja (maksed ja sissetulekud) ja diskontomäära.
Süntaks
NPV( määr, väärtused ())
Funktsiooni NPV süntaksil on järgmised argumendid.
|
Argument |
Kirjeldus |
|
määr |
Nõutav. Diskontomäära perioodi jooksul täpsustav kahekordne, väljendatud kümnendarvuna. |
|
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). |
Kommentaarid
Investeeringu puhasnüüdisväärtus on tulevaste maksete ja sissetulekute sarja praegune väärtus.
Funktsioon NPV kasutab maksete ja sissetulekute järjestuse tõlgendamiseks väärtuste järjestust massiivis. Sisestage maksete ja sissetulekute väärtused kindlasti õiges järjestuses.
NPV investeering algab üks periood enne esimese rahavooväärtuse kuupäeva ja lõpeb massiivi viimase rahavooväärtusega.
Puhasnüüdisväärtuse arvutamine põhineb tuleviku rahavoogudel. Kui esimene rahavoog toimub esimese perioodi alguses, tuleb esimene väärtus lisada NPV tagastatud väärtusele ning seda ei tohi arvata väärtuste( ) rahavooväärtuste hulka.
Funktsioon NPV on sarnane funktsiooniga PV (praegune väärtus), välja arvatud see, et funktsioon PV võimaldab rahavoogudel alata nii perioodi lõpus kui ka alguses. Erinevalt funktsiooni NPV muutuvatest rahavooväärtustest peavad funktsiooni PV rahavood olema kogu investeeringu jooksul fikseeritud.
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 kasutatakse massiivis Values() sisalduva rahavoogude sarja puhasnüüdisväärtuse vastuse saamiseks funktsiooni NPV. RetRate esindab fikseeritud sisemist tasuvusmäära.
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
