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".
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