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

Please support us!