Module
Contents
Index 🔎︎

# 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