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