CBool Function

Teisendab string- või arvvõrdluse tõeväärtusavaldiseks või üksiku arvavaldise tõeväärtusavaldiseks.

SĂĽntaks:


CBool (Avaldis1 {= | <> | < | > | <= | >=} Avaldis2) või CBool (arv)

Tagastusväärtus:

Bool

Parameetrid:

Avaldis1, Avaldis2: Suvaline string- või arvavaldis, mida võrreldakse. Kui võrdus või võrratus on tõene, tagastab CBool vastuse Tõene, vastasel juhul tagastatakse Väär.

Number: suvaline arvavaldis, mida soovid teisendada. Kui avaldis võrdub 0, siis tagastatakse väärtus Väär, muul juhul tagastatakse väärtus Tõene.

Järgmises näites kasutatakse funktsiooni Instr tagastatud väärtuse hindamiseks funktsiooni CBool. Funktsioon kontrollib, kas kasutaja sisestatud lauses esineb sõna "and".

Error codes:

5 Vigane protseduuri väljakutse

Näide:


Sub ExampleCBool
Dim sText As String
    sText = InputBox("Palun sisesta lĂĽhike lause:")
    REM Kinnitus, kas lauses esineb sõna »and«.
    REM Käsurea asemel
    REM If Instr(Input, "ja")<>0 Then...
    REM Funktsioon CBool rakendatakse järgmiselt:
    If CBool(Instr(sText, "ja")) Then
        MsgBox "Sõna »ja« on sinu sisestatud lauses täiesti olemas!"
    EndIf
End Sub