IBM Lotus Symphony


Función CBool [Ejecución]

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.

Sintaxis:

CBool (Expresión1 {= | <> | < | > | <= | >=} Expresión2) o CBool (Número)

Valor de retorno:

Lógico

Parámetros:

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.

Códigos de error

5 Inicio del proceso no válido

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas