IBM Lotus Symphony
|
Convierte una comparación de cadenas o numérica en una expresión lógica, o convierte una expresión numérica simple en una de tipo lógico.
CBool (Expresión1 {= | <> | < | > | <= | >=} Expresión2) o CBool (Número)
Lógico
Expresión1, Expresión2: Cualquier cadena o expresión numérica que desee comparar. Si las expresiones coinciden, la función CBool devuelve el valor True; de lo contrario, devuelve el valor False.
Número: Cualquier expresión numérica que desee convertir. Si la expresión es igual a 0 se devuelve False, en caso contrario se devuelve True.
El ejemplo siguiente usa la función CBool para evaluar el valor que devuelve la función Instr. La función comprueba si la palabra "y" se halla en la frase que especificó el usuario.
Sub EjemploCBool
Dim sTexto As String
sTexto = InputBox("Por favor, escriba una frase corta:")
REM Comprobar si la palabra »and« aparece en la frase.
REM En lugar de usar la línea de mandatos
REM If Instr(Input, "y")<>0 Then...
REM la función CBool se aplica de la forma siguiente:
If CBool(Instr(sText, "y")) Then
MsgBox "La palabra »and« aparece en la frase que acaba de escribir"
EndIf
End Sub