LibreOffice 25.2 Bantuan
Menghitung Nilai Sekarang Bersih dari investasi, berdasarkan tingkat diskonto yang disediakan, dan serangkaian setoran dan penarikan.
NPV (Rate as Double, Values() as Double)
Double
Nilai adalah nilai yang akan diperiksa.
Nilai () adalah array yang mewakili setoran (nilai positif) atau penarikan (nilai negatif).
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)
 Cetak p ' mengembalikan 174,894967305331
End Sub