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