Módulo
Contenido
Índice 🔎︎

# Función CBool

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, en caso contrario devuelve False.

Número: Cualquier expresión numérica que desee convertir. Si la expresión es igual a 0 devuelve False, en caso contrario 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 introdujo el usuario.

## Códigos de error:

5 Llamada a procedimiento no válida

## Ejemplo:

    Sub ExampleCBool

    Dim sText As String

        sTexto = InputBox("Escriba una frase breve:")

        ' Comprueba que la palabra «y» aparece en la oración.

        ' En vez de la línea de órdenes

        ' If Instr(Input, "y")<>0 Then...

        ' la función CBool se aplica de la forma siguiente:

        If CBool(Instr(sTexto, "y")) Then

            MsgBox "La palabra «y» aparece en la frase que acaba de escribir."

        EndIf

    End Sub