Funkce CBool

Převede řetězcové nebo číselné porovnání na Booleovský výraz, nebo převede jeden číselný výraz na Booleovský výraz.

Syntaxe:

CBool (Výraz1 {= | <> | < | > | <= | >=} Výraz2) nebo CBool (Číslo)

Návratová hodnota:

Bool

Parametry:

Výraz1, Výraz2: Jakékoliv řetězce nebo čísla, které chcete porovnat. Pokud se výrazy shodují, funkce CBool vrátí True, jinak vrátí False.

Číslo: Číselný výraz, který chcete převést. Je-li výraz roven 0, vrátí se False, jinak vrátí True.

Následující příklad používá funkci CBool k vyhodnocení hodnoty vrácené funkcí Instr. Funkce kontroluje, zda je ve větě zadané uživatelem slovo "and".

Chybové kódy:

5 Neplatné volání procedury

Příklad:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Zadejte krátkou větu:")

    ' Zjistí, zda se ve větě vyskytuje »and«.

    ' Namísto řádku s příkazem

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

    ' se použije funkce CBool takto:

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

        MsgBox "V zadané větě se vyskytuje slovo »and«!"

    EndIf

End Sub