Pag-andar ng CBool

Kino-convert ang isang expression o isang set ng mga expression sa isang boolean. Ang isang expression ay binubuo ng mga string, numero at operator. Ang paghahambing, lohikal o matematikal na mga operator ay pinapayagan sa loob ng mga expression.

Syntax:


  CBool (expression As Variant) As Boolean

pagpapahayag ay maaaring isang numero o isang set ng pinagsamang mga expression.

Ibinalik na halaga:

Boolean

Mga Parameter:

pagpapahayag : Isang lohikal na expression, isang mathematical formula, isang numeric na expression o isang set ng mga expression na pinagsama sa mga operator. Sa panahon ng pagsusuri sa pagpapahayag mga lohikal na operator unahin mo mga operator ng paghahambing , na siya namang inuuna mga operator ng matematika .

Ang pagpapahayag maaaring isang numero o mathematical formula. Kapag katumbas ng 0, Mali ay ibinalik, kung hindi man totoo ay ibinalik.

Maramihang mga expression tulad ng expr1 [[{operator] expr2]..] maaaring pagsamahin. expr1 at expr2 maaaring anumang string o numeric na expression na gusto mong suriin. CBool pinagsasama ang mga expression at ibinabalik ang alinman totoo o Mali . operator maaaring maging a operator ng matematika , lohikal na operator o operator ng paghahambing .

Mga error code:

5 Di-wastong procedure call

Halimbawa:

Sa mga sumusunod na halimbawa, ang CBool sinusuri ng function ang isang lohikal na expression, isang mathematical formula at ang halaga na ibinalik ng Instr function. Sinusuri ng function kung ang character na "a" ay matatagpuan sa pangungusap na ipinasok ng user.


Sub ExampleCBool
    I-print ang CBool( 1>2 Xor 44 ) ' ay nag-compute sa True
    Print CBool( expression := 15 /2 -7.5 ) ' ay nagpapakita ng False bilang expression ay katumbas ng 0
    txt = InputBox("Mangyaring magpasok ng maikling pangungusap:")
    ' Patunay kung ang karakter na "a" ay lilitaw sa pangungusap.
    ' Sa halip na command line
    ' If Instr(Input, "a")<>0 Then...
    ' ang CBool function ay inilapat bilang mga sumusunod:
    If CBool(Instr(txt, "a")) Then
        MsgBox "Ang karakter na »a« ay lumalabas sa pangungusap na iyong inilagay!"
    EndIf
End Sub