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!