Contents
Index 🔎︎

# 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