ຟັງຊັນ SYD [VBA]
ສົ່ງຄືນອັດຕາຄ່າຫຼຸ້ຍຫ້ຽນແບບຫຼຸດນ້ອຍຖອຍລົງຕາມລຳດັບເລກຄະນິດ.
ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.
SYD (Cost as Double, Salvage as Double, Life as Double, Period as Double)
Double
Cost ແມ່ນຕົ້ນທຶນທຳອິດຂອງສິນຊັບ.
Salvage ແມ່ນມູນຄ່າຊາກຂອງສິນຊັບໃນຕອນທ້າຍຂອງການຄິດໄລ່ຄ່າຫຼຸ້ຍຫ້ຽນ.
Life ແມ່ນໄລຍະເວລາການຄິດໄລ່ຄ່າຫຼຸ້ຍຫ້ຽນ ເຊິ່ງກຳນົດຈຳນວນງວດໃນການຄິດໄລ່ຄ່າຫຼຸ້ຍຫ້ຽນຂອງສິນຊັບ.
Period ແມ່ນລຳດັບງວດທີ່ທ່ານຕ້ອງການຄິດໄລ່ຄ່າຫຼຸ້ຍຫ້ຽນ.
REM ***** BASIC *****
Option VBASupport 1
Sub ExampleSYD
REM ຄິດໄລ່ຄ່າຫຼຸ້ຍຫ້ຽນລາຍປີຂອງສິນຊັບທີ່ມີຕົ້ນທຶນ $10,000 ໃນ
REM ຕອນເລີ່ມຕົ້ນຂອງປີທີ 1, ແລະ ມີມູນຄ່າຊາກ $1,000 ຫຼັງຈາກ 5 ປີ.
Dim syd_yr1 As Double
REM ຄິດໄລ່ຄ່າຫຼຸ້ຍຫ້ຽນໃນລະຫວ່າງປີທີ 1.
syd_yr1 = SYD( 10000, 1000, 5, 1 )
print syd_yr1 ' syd_yr1 ຕອນນີ້ເທົ່າກັບ 3000.
End Sub
