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