NPV Function [VBA]
የ ኢንቬስትመንት ንጹህ ትርፍ ለ አሁኑ ዋጋ ያሰላል: በ ተሰጠው የ ቅናሽ መጠን መሰረት: እና ተከታታይ ተቀማጭ እና ወጪ
This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.
NPV (Rate as Double, Values() as Double)
Double
መጠን የ ቅናሽ መጠን ለ ጊዜ
ዋጋዎች() ተቀማጭ የሚወክል ማዘጋጃ ነው (አዎንታዊ ዋጋዎች) ወይንም ወጪ (አሉታዊ ዋጋዎች)
REM ***** BASIC *****
Option VBASupport 1
Sub ExampleNPV
Dim r As Double
Dim pValues(5) as Double
pValues(0) = 100
pValues(1) = 100
pValues(2) = 100
pValues(3) = -300
pValues(4) = 100
pValues(5) = 100
r = 0.06
p = NPV( r, pValues)
Print p ' returns 174,894967305331
End Sub