Mengembalikan Ganda yang menentukan nilai bersih investasi pada saat ini berdasarkan seri aliran kas berkala (pembayaran dan penerimaan) dan nilai diskon
Sintaks
NPV( rate, values ())
Sintaks fungsi NPV memiliki argumen ini:
Argumen |
Deskripsi |
rate |
Diperlukan. Ganda menentukan tingkat diskon selama periode, yang dinyatakan sebagai desimal. |
values () |
Diperlukan. Array Ganda menentukan nilai arus kas. Array harus berisi setidaknya satu nilai negatif (pembayaran) dan satu nilai positif (penerimaan). |
Keterangan
Nilai bersih investasi adalah nilai serangkaian pembayaran dan penerimaan mendatang pada saat ini.
Fungsi NPV menggunakan urutan nilai dalam array untuk menerjemahkan urutan pembayaran dan penerimaan. Pastikan memasukkan nilai pembayaran dan penerimaan dalam urutan yang tepat.
Investasi NPV dimulai satu periode sebelum tanggal nilai arus kas pertama dan berakhir dengan nilai arus kas terakhir dalam array.
Perhitungan nilai bersih saat ini didasarkan pada arus kas masa mendatang. Jika arus kas pertama Anda terjadi di awal periode pertama, nilai pertama harus ditambahkan ke nilai yang dikembalikan oleh NPV dan tidak boleh disertakan dalam nilai arus kasvalues( ).
Fungsi NPV mirip dengan fungsi PV (nilai saat ini) kecuali bahwa fungsi PV memungkinkan arus kas dimulai pada akhir atau awal periode. Tidak seperti variabel nilai arus kas NPV, arus kas PV harus tetap selama investasi.
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan NPV untuk mengembalikan nilai bersih saat ini untuk serangkaian arus kas yang dimuat dalam array Values(). RetRate menyatakan tingkat pengembalian laba internal tetap.
Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double ' Set up array. Fmt = "###,##0.00" ' Define money format. Guess = .1 ' Guess starts at 10 percent. RetRate = .0625 ' Set fixed internal rate. Values(0) = -70000 ' Business start-up costs. ' Positive cash flows reflecting income ' for four successive years. Values(1) = 22000 : Values(2) = 25000 Values(3) = 28000 : Values(4) = 31000 ' Calculate net present value. NetPVal = NPV(RetRate, Values()) Msg = "The net present value " & _ "of these cash flows is " Msg = Msg & Format(NetPVal, Fmt) & "." ' Display net present value. MsgBox Msg