NPV (Fungsi NPV)

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
Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×