IBM Lotus Symphony


Função CBool [Runtime]

Converte uma comparação de cadeia ou numérica numa expressão booleana, ou converte uma expressão numérica individual numa expressão booleana.

Sintaxe:

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)

Valor de retorno:

Bool

Parâmetros:

Expression1, Expression2: Quaisquer cadeias ou expressões numéricas que pretende comparar. Se as expressões forem correspondentes, a função CBool devolve True; caso contrário, devolve False.

Number: Qualquer expressão numérica que pretende converter. Se a expressão for igual a 0, é devolvido o resultado False, caso contrário, é devolvido True.

O seguinte exemplo utiliza a função CBool para calcular o valor devolvido pela função Instr. A função verifica se a palavra "and" se encontra na frase inserida pelo utilizador.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

Sub ExampleCBool

Dim sText As String

sText = InputBox("Please enter a short sentence:")

REM Proof if the word »and« appears in the sentence.

REM Em vez da linha de comandos

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

REM a função CBool é aplicada da seguinte forma:

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

MsgBox "The word »and« appears in the sentence you entered!"

EndIf

End Sub


Comentários sobre o produto | Documentação adicional | Marcas comerciais