CBool Function

CBool muuntaa merkkijono- tai numeerisen vertailun Boolen lausekkeeksi tai muuntaa numeerisen lausekkeen Boolen lausekkeeksi.

Syntaksi:

CBool (lauseke1 {= | <> | < | > | <= | >=} lauseke2) tai CBool (luku1)

Palautusarvo:

Bool-tyypin totuusarvo

Parametrit:

Lauseke1, lauseke2: verrattavat merkkijono- tai numeeriset lausekkeet. Jos lausekkeet vastaavat vertailuehtoa CBool-palauttaa tosiarvon True, muuten palautetaan arvo False (epätosi).

Luku1: mikä tahansa muunnettava numeerinen lauseke. Jos lauseke on yhtä suuri kuin 0, palautetaan False-arvo, muuten palautusarvona on True (tosi).

Seuraavassa esimerkissä CBool-funktio tulkitsee Instr-funktion palautusarvoa. Funktio tutkii, esiintyykö sana "ja" käyttäjän kirjoittamassa lauseessa.

Esimerkki:

Sub ExampleCBool

Dim sText As String

    sText = InputBox ("Ole hyvä ja kirjoita lyhyt lause:")

    ' Tutkitaan, esiintyykö »ja« lauseessa.

    ' seuraavan käskyrivin asemesta

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

    ' CBool-funktiota käytetään seuraavasti:

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

        MsgBox "Sana 'ja' esiintyy lauseessasi!"

    EndIf

End Sub