IBM Lotus Symphony
|
Konvertuje porovnanie reťazcov alebo numerické porovnanie na booleovský výraz alebo konvertuje numerický výraz na booleovský výraz.
CBool (výraz_1 {= | <> | < | > | <= | >=} výraz_) alebo CBool (číslo)
Typ Bool
Výraz_1, Výraz_2: ľubovoľné reťazcové alebo numerické výrazy, ktoré chcete porovnávať. Ak sa výrazy zhodujú, funkcia CBool vracia hodnotu true, inak vracia hodnotu false.
Číslo: ľubovoľný numerický výraz, ktorý chcete konvertovať. Ak sa výraz rovná 0, vráti sa hodnota false, inak sa vráti hodnota true.
Nasledujúci príklad používa funkciu CBool na vyhodnocovanie hodnoty vracanej funkciou Instr. Funkcia kontroluje, či sa našlo slovo "and" vo vete, ktorú zadal užívateľ.
Sub Príklad_CBool
Dim sText ako typ String
sText = InputBox("Prosím, zadajte krátku vetu:")
REM Overte, či sa slovo »and« objaví vo vete.
REM Namiesto príkazového riadku
REM If Instr(Input, "a")<>0 Then...
REM funkcia CBool sa používa takto:
If CBool(Instr(sText, "a")) Then
MsgBox "Slovo »and« sa objaví vo vami zadanej vete!"
EndIf
End Sub