Fungsi NPV [VBA]

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

Ikon Peringatan

Fungsi atau konstanta ini diaktifkan dengan pernyataan Option VBASupport 1 yang ditempatkan sebelum kode program yang dapat dieksekusi dalam sebuah modul.


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