CBool Function

āĻāĻ•āϟāĻŋ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āĻ…āĻĨāĻŦāĻž āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāϕ⧇ āĻŦ⧁āϞāĻŋ⧟āĻžāύ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ⧇ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āĻ…āĻĨāĻŦāĻž āĻāĻ•āĻ• āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāϕ⧇ āĻŦ⧁āϞāĻŋ⧟āĻžāύ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ⧇ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) āĻ…āĻĨāĻŦāĻž CBool (Number)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Bool

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

Expression1, Expression2: āϝ⧇āϕ⧋āύ⧋ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āĻ…āĻĨāĻŦāĻž āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āφāĻĒāύāĻŋ āϤ⧁āϞāύāĻž āĻ•āϰāϤ⧇ āϚāĻžāύāĨ¤ āϝāĻĻāĻŋ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāϟāĻŋ āĻŽāĻŋāϞ⧇ āϝāĻžā§Ÿ, CBool āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ True āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āĻ…āĻ¨ā§āϝāĻĨāĻžā§Ÿ False āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻ‚āĻ–ā§āϝāĻž: āϝ⧇āϕ⧋āύ⧋ āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āφāĻĒāύāĻŋ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰāϤ⧇ āϚāĻžāύāĨ¤ āϝāĻĻāĻŋ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ⧇āϰ āĻŽāĻžāύ 0 āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ False āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āĻ…āĻ¨ā§āϝāĻĨāĻžā§Ÿ True āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āύāĻŋāĻšā§‡āϰ āωāĻĻāĻžāĻšāϰāĻŖāϟāĻŋ Instr āĻĻā§āĻŦāĻžāϰāĻž āĻĒā§āϰāĻĻāĻžāύāĻ•ā§ƒāϤ āĻŽāĻžāύ āĻŽā§‚āĻ˛ā§āϝāĻžā§Ÿāύ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ CBool āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻŦā§āϝāĻŦāĻšā§ƒāϤ āĻšā§ŸāĨ¤ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻĒāϰ⧀āĻ•ā§āώāĻž āĻ•āϰāĻž āĻšā§Ÿ āϝāĻĻāĻŋ "and" āĻļāĻŦā§āĻĻāϟāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰāĻ•āĻžāϰ⧀ āĻ•āĻ°ā§āϤ⧃āĻ• āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļāĻ•ā§ƒāϤ āĻŦāĻžāĻ•ā§āϝ⧇ āĻĒāĻžāĻ“ā§ŸāĻž āϝāĻžā§ŸāĨ¤

Error codes:

5 Invalid procedure call

āωāĻĻāĻžāĻšāϰāĻŖ:

Sub ExampleCBool

Dim sText As String

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

    REM Proof if the word ÂģandÂĢ appears in the sentence.

    REM āĻ•āĻŽāĻžāĻ¨ā§āĻĄ āϞāĻžāχāύ⧇āϰ āĻĒāϰāĻŋāĻŦāĻ°ā§āϤ⧇

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

    REM CBool āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āύāĻŋāĻŽā§āύāϰ⧂āĻĒ⧇ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•āϰāĻž āĻšā§Ÿ:

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

        MsgBox "The word ÂģandÂĢ appears in the sentence you entered!"

    EndIf

End Sub