ເນື້ອໃນ

# ຟັງຊັນ NPV [VBA]

ຄິດໄລ່ມູນຄ່າປັດຈຸບັນສຸດທິ (NPV) ຂອງການລົງທຶນ, ໂດຍອີງໃສ່ອັດຕາສ່ວນຫຼຸດທີ່ລະບຸ ແລະ ຊຸດຂອງເງິນຝາກ ແລະ ການຖອນເງິນ.

ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.

### ໄວຍາກອນ:

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

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

Double

### ພາຣາມິເຕີ:

ອັດຕາ (Rate) ແມ່ນອັດຕາສ່ວນຫຼຸດສຳລັບງວດໜຶ່ງ.

ຄ່າ (Values()) ແມ່ນອາເຣທີ່ສະແດງເຖິງເງິນຝາກ (ຄ່າບວກ) ຫຼື ການຖອນເງິນ (ຄ່າລົບ).

### ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

### ຕົວຢ່າງ:

    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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ NPV ໃນ CALC

ຟັງຊັນການເງິນຂອງ VBA