Fungsi NPV [VBA]

Menghitung Nilai Sekarang Bersih dari investasi, berdasarkan tingkat diskonto yang disediakan, dan serangkaian setoran dan penarikan.

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

Sintaksis:


NPV (Rate as Double, Values() as Double)

Nilai balikan:

Double

Parameter:

Nilai adalah nilai yang akan diperiksa.

Nilai () adalah array yang mewakili setoran (nilai positif) atau penarikan (nilai negatif).

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


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

Fungsi NPV di CALC

Fungsi keuangan VBA