IBM Lotus Symphony
|
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.
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)
Booleano
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.
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