Tulong sa LibreOffice 24.8
Kinakalkula ang Net Present Value ng isang investment, batay sa isang ibinigay na rate ng diskwento, at isang serye ng mga deposito at withdrawal.
NPV (Rate as Double, Values() as Double)
Double
Rate ay ang discount rate para sa isang panahon.
Values() ay isang array na kumakatawan sa mga deposito (positive values) o withdrawals (negative values).
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