IBM Lotus Symphony


Função CBool [Tempo de Execução]

Converte uma comparação de sequência ou de número em uma expressão Booleana ou converte uma expressão numérica em sequência em uma expressão Booleana.

Sintaxe:

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

Valores de Retorno:

Booleano

Parâmetros:

Expression1, Expression2: Quaisquer expressões numéricas ou em sequência a ser comparadas. Se as expressões forem correspondentes, a função CBool retornará True, caso contrário, retornará False.

Number: Qualquer expressão numérica que você deseje converter. Se a expressão for igual a 0, False será retornado, caso contrário, True será retornado.

O exemplo a seguir usa a função CBool para avaliar o valor retornado pela função Instr. A função verifica se a palavra "and" existe na sentença que o usuário digitou.

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

Sub ExampleCBool

Dim sText As String

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

REM Verificar se a palavra Ã'»andÃ'« aparece na sentença.

REM Em vez da linha de comando

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

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

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

MsgBox "A palavra Ã'»andÃ'« aparece na sentença inserida!"

EndIf

End Sub


Feedback do Produto | Documentação Adicional | Marcas Registradas