ຟັງຊັນ Round [VBA]

ປັດເສດຕົວເລກໃຫ້ເປັນຈຳນວນຕຳແໜ່ງທົດສະນິຍົມທີ່ລະບຸ.

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

ຟັງຊັນນີ້ໃຊ້ກົດການປັດເສດທີ່ເອີ້ນວ່າ "ປັດຫາເລກຄູ່" (round-to-even). ດ້ວຍກົດນີ້, ເມື່ອໃດທີ່ຄວາມແຕກຕ່າງລະຫວ່າງຕົວເລກທີ່ຈະປັດ ແລະ ເລກຖ້ວນທີ່ໃກ້ຄຽງທີ່ສຸດເທົ່າກັບ 0.5, ຕົວເລກຈະຖືກປັດໄປຫາເລກຄູ່ທີ່ໃກ້ທີ່ສຸດ. ເບິ່ງຕົວຢ່າງ ດ້ານລຸ່ມ ເພື່ອສຶກສາເພີ່ມເຕີມກ່ຽວກັບກົດນີ້.

ກະລຸນາຮັບຊາບວ່າຟັງຊັນ Round ຂອງ VBA ເຮັດວຽກແຕກຕ່າງຈາກຟັງຊັນ Round ຂອງ LibreOffice Calc. ໃນ Calc, ຫາກຄວາມແຕກຕ່າງລະຫວ່າງຕົວເລກທີ່ຈະປັດ ແລະ ເລກຖ້ວນທີ່ໃກ້ທີ່ສຸດແມ່ນ 0.5 ພໍດີ, ຕົວເລກຈະຖືກປັດຂຶ້ນ. ດັ່ງນັ້ນ, ໃນ Calc ເລກ 2.5 ຈະຖືກປັດເປັນ 3 ແຕ່ໃນຟັງຊັນ Round ຂອງ VBA ຄ່າ 2.5 ຈະຖືກປັດເປັນ 2 ເນື່ອງຈາກກົດ "ປັດຫາເລກຄູ່".

ໄວຍາກອນ:

Round(expression [,numdecimalplaces])

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

Double

ພາຣາມິເຕີ:

expression: ນິພົດຕົວເລກທີ່ຈະປັດເສດ.

numdecimalplaces: (ເລືອກໄດ້) ໂຕກຳນົດຈຳນວນຕຳແໜ່ງທົດສະນິຍົມໃນຜົນໄດ້ຮັບ. ຄ່າເລີ່ມຕົ້ນແມ່ນ 0.

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

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

ຕົວຢ່າງ:


    Option VBASupport 1
    Sub Example_Round
        Dim r 
        r = Pi
        print r ' 3,14159265358979
        print Round(r, 5) ' 3,14159
        r = exp(1)
        print r ' 2,71828182845904
        print Round(r) ' 3
    End Sub

ຕົວຢ່າງຕໍ່ໄປນີ້ສະແດງໃຫ້ເຫັນເຖິງກົດ "ປັດຫາເລກຄູ່":


    ' ປັດເປັນເລກຖ້ວນທີ່ໃກ້ທີ່ສຸດ (decimalplaces = 0)
    MsgBox Round(3.5) ' 4
    MsgBox Round(4.5) ' 4
    MsgBox Round(5.5) ' 6
    MsgBox Round(6.5) ' 6
    ' ປັດດ້ວຍທົດສະນິຍົມ 2 ຕຳແໜ່ງ (decimalplaces = 2)
    MsgBox Round(1.555, 2) ' 1.56
    MsgBox Round(1.565, 2) ' 1.56
    MsgBox Round(1.575, 2) ' 1.58
    MsgBox Round(1.585, 2) ' 1.58

ຟັງຊັນ ROUND ໃນ Calc

ຟັງຊັນຄະນິດສາດຂອງ VBA