ຟັງຊັນ CBool

ແປງນິພົດ ຫຼື ຊຸດຂອງນິພົດໃຫ້ເປັນຄ່າບູລີນ (boolean). ນິພົດປະກອບດ້ວຍຂໍ້ຄວາມ, ຕົວເລກ ແລະ ຕົວດຳເນີນການ. ສາມາດໃຊ້ຕົວດຳເນີນການປຽບທຽບ, ໂລຊິກ ຫຼື ຄະນິດສາດພາຍໃນນິພົດໄດ້.

ໄວຍາກອນ:


  CBool (expression As Variant) As Boolean

expression ສາມາດເປັນຕົວເລກ ຫຼື ຊຸດຂອງນິພົດທີ່ປະສົມກັນ.

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

Boolean

ພາຣາມິເຕີ:

expression: ນິພົດທາງໂລຊິກ, ສູດຄະນິດສາດ, ນິພົດຕົວເລກ ຫຼື ຊຸດຂອງນິພົດທີ່ປະສົມກັບຕົວດຳເນີນການ. ໃນລະຫວ່າງການປະເມີນຜົນນິພົດ ຕົວດຳເນີນການທາງໂລຊິກ ຈະມີລຳດັບຄວາມສຳຄັນເໜືອກວ່າ ຕົວດຳເນີນການປຽບທຽບ, ເຊິ່ງຈະມີລຳດັບຄວາມສຳຄັນເໜືອກວ່າ ຕົວດຳເນີນການທາງຄະນິດສາດ.

expression ສາມາດເປັນຕົວເລກ ຫຼື ສູດຄະນິດສາດ. ເມື່ອມີຄ່າເທົ່າກັບ 0, ຈະສົ່ງຄືນຄ່າ False, ຖ້າບໍ່ດັ່ງນັ້ນຈະສົ່ງຄືນຄ່າ True.

ສາມາດປະສົມນິພົດຫຼາຍອັນໄດ້ ເຊັ່ນ expr1 [[{operator] expr2]..]. expr1 ແລະ expr2 ສາມາດເປັນຂໍ້ຄວາມ ຫຼື ນິພົດຕົວເລກໃດໆທີ່ທ່ານຕ້ອງການປະເມີນ. CBool ຈະລວມນິພົດເຂົ້າກັນ ແລະ ສົ່ງຄືນຄ່າ True ຫຼື False. operator ສາມາດເປັນ ຕົວດຳເນີນການທາງຄະນິດສາດ, ຕົວດຳເນີນການທາງໂລຊິກ ຫຼື ຕົວດຳເນີນການປຽບທຽບ.

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

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

ຕົວຢ່າງ:

ໃນຕົວຢ່າງຕໍ່ໄປນີ້, ຟັງຊັນ CBool ຈະປະເມີນນິພົດທາງໂລຊິກ, ສູດຄະນິດສາດ ແລະ ຄ່າທີ່ສົ່ງຄືນໂດຍຟັງຊັນ Instr. ຟັງຊັນຈະກວດສອບວ່າພົບຕົວອັກສອນ "a" ໃນປະໂຫຍກທີ່ຜູ້ໃຊ້ປ້ອນເຂົ້າໄປຫຼືບໍ່.


Sub ExampleCBool
    Print CBool( 1>2 Xor 44 ) ' ຄຳນວນໄດ້ຄ່າ True
    Print CBool( expression := 15 /2 -7.5 ) ' ສະແດງຄ່າ False ເພາະນິພົດເທົ່າກັບ 0
    txt = InputBox("ກະລຸນາປ້ອນປະໂຫຍກສັ້ນໆ:")
    ' ກວດສອບວ່າຕົວອັກສອນ "a" ປະກົດຢູ່ໃນປະໂຫຍກຫຼືບໍ່.
    ' ແທນທີ່ຈະໃຊ້ບັນທັດຄຳສັ່ງ
    ' If Instr(Input, "a")<>0 Then...
    ' ຟັງຊັນ CBool ຈະຖືກນຳໃຊ້ດັ່ງນີ້:
    If CBool(Instr(txt, "a")) Then
        MsgBox "ຕົວອັກສອນ »a« ປະກົດຢູ່ໃນປະໂຫຍກທີ່ທ່ານປ້ອນເຂົ້າໄປ!"
    EndIf
End Sub