Tulong sa LibreOffice 25.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