Modul
Obsah
Index 🔎︎

# 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