ຟັງຊັນ NPV [VBA]
ຄິດໄລ່ມູນຄ່າປັດຈຸບັນສຸດທິ (NPV) ຂອງການລົງທຶນ, ໂດຍອີງໃສ່ອັດຕາສ່ວນຫຼຸດທີ່ລະບຸ ແລະ ຊຸດຂອງເງິນຝາກ ແລະ ການຖອນເງິນ.
ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.
NPV (Rate as Double, Values() as Double)
Double
ອັດຕາ (Rate) ແມ່ນອັດຕາສ່ວນຫຼຸດສຳລັບງວດໜຶ່ງ.
ຄ່າ (Values()) ແມ່ນອາເຣທີ່ສະແດງເຖິງເງິນຝາກ (ຄ່າບວກ) ຫຼື ການຖອນເງິນ (ຄ່າລົບ).
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)
Print p ' ສົ່ງຄືນ 174,894967305331
End Sub
