CBool Function

បម្លែងការប្រៀបធៀបខ្សែអក្សរ ឬការប្រៀបធៀបលេខទៅជាកន្សោមប៊ូលីន ឬបម្លែងកន្សោមលេខតែមួយទៅជាកន្សោមប៊ូលីន ។

វាក្យសម្ពន្ធ ៖

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)

តម្លៃត្រឡប់ ៖

ប៊ូល

ប៉ារ៉ាម៉ែត្រ ៖

កន្សោមទី1, កន្សោមទី2 ៖ កន្សោមខ្សែអក្សរ ឬលេខណាមួយដែលអ្នកចង់ប្រៀបធៀប ។ ប្រសិនបើកន្សោមផ្គូផ្គង អនុគមន៍ CBool ត្រឡប់ ពិត បើពុំនោះសោត មិនពិត ត្រូវបានត្រឡប់ ។

ចំនួន ៖ កន្សោមលេខណាមួយ ដែលអ្នកចង់បម្លែង ។ ប្រសិនបើកន្សោមស្មើ ០ មិនពិត ត្រូវបានត្រឡប់ បើពុំនោះសោត ពិត ត្រូវបានត្រឡប់ ។

ឧទាហរណ៍ដូចខាងក្រោម ប្រើអនុគមន៍ CBool ដើម្បីវាយតម្លៃ តម្លៃដែលត្រូវបានត្រឡប់ដោយអនុគមន៍ Instr ។ អនុគមន៍ពិនិត្យមើលប្រសិនបើរកឃើញពាក្យ "and" ក្នុងប្រយោគដែលត្រូវបានបញ្ចូលដោយអ្នកប្រើ ។

Error codes:

5 ការហៅបែបបទមិនត្រឹមត្រូវ

ឧទាហរណ៍ ៖

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Please enter a short sentence:")

    REM Proof if the word »and« appears in the sentence.

    REM Instead of the command line

    REM If Instr(Input, "and")<>0 Then...

    REM the CBool function is applied as follows:

    If CBool(Instr(sText, "and")) Then

        MsgBox "The word »and« appears in the sentence you entered!"

    EndIf

End Sub