ເນື້ອໃນ

# ຟັງຊັນ 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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ CByte

ຟັງຊັນ CCur

ຟັງຊັນ CDate

ຟັງຊັນ CDbl

ຟັງຊັນ CDec

ຟັງຊັນ CInt

ຟັງຊັນ CLng

ຟັງຊັນ CSng

ຟັງຊັນ CStr

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!