ຟັງຊັນ MIRR [VBA]

ຄິດໄລ່ອັດຕາຜົນຕອບແທນພາຍໃນທີ່ປັບປຸງໃໝ່ (MIRR) ຂອງຊຸດການລົງທຶນ.

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

MIRR(Values() as Double, Investment as Double, ReinvestRate as Double)

Double

Values(): ອາເຣຂອງກະແສເງິນສົດ ທີ່ສະແດງເຖິງຊຸດການຈ່າຍ ແລະ ລາຍຮັບ, ໂດຍທີ່ຄ່າລົບຄືການຈ່າຍ ແລະ ຄ່າບວກຄືລາຍຮັບ. ອາເຣນີ້ຕ້ອງມີຢ່າງໜ້ອຍໜຶ່ງຄ່າລົບ ແລະ ໜຶ່ງຄ່າບວກ.

ການລົງທຶນ (Investment): ແມ່ນອັດຕາດອກເບ້ຍຂອງການລົງທຶນ (ຄ່າລົບໃນອາເຣ).

ອັດຕາລົງທຶນຕໍ່ (ReinvestRate): ອັດຕາດອກເບ້ຍຂອງການລົງທຶນຄືນໃໝ່ (ຄ່າບວກໃນອາເຣ).

REM ***** BASIC *****
Option VBASupport 1
Sub ExampleMIRR
 Dim cashFlow(0 to 3) As Double
 cashFlow(0) = -5
 cashFlow(1) = 10
 cashFlow(2) = 15
 cashFlow(3) = 8
 mirrValue = MIRR(cashFlow,0.5,0.1) * 100
 Print mirrValue ' ສົ່ງຄືນ 94.16. ອັດຕາຜົນຕອບແທນພາຍໃນທີ່ປັບປຸງໃໝ່ຂອງກະແສເງິນສົດ.
End Sub