IBM Lotus Symphony


Funkcia CBool [Runtime]

Konvertuje porovnanie reťazcov alebo numerické porovnanie na booleovský výraz alebo konvertuje numerický výraz na booleovský výraz.

Syntax:

CBool (výraz_1 {= | <> | < | > | <= | >=} výraz_) alebo CBool (číslo)

Návratová hodnota:

Typ Bool

Parametre:

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

Chybové kódy

5 Neplatné volanie procedúry

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky