Module
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