Module
Contents
Index 🔎︎

# CBool Function

Convierte una comparanza de cadenes o numbérica nuna espresión lóxica, o convierte una espresión numbérica simple nuna de tipu lóxicu.

## Sintaxis:

    CBool (Espresión1 {= | <> | < | > | <= | >=} Espresión2) o CBool (Númberu)

## Valor de torna:

Lóxicu

## Parámetros:

Espresión1, Espresión2: Cualquier cadena o espresión numbérica que deseye comparar. Si les espresiones coinciden, la función CBool devuelve'l valor True, en casu contrariu devuelvi False.

Númberu: Cualquier espresión numbérica que deseye convertir. Si la espresión ye igual a 0 devuélvese False, en casu contrariu devuélvese True.

L'exemplu siguiente usa la función CBool pa evaluar el valor que devuelve la función Instr. La función comprueba si la pallabra "y" topar na frase qu'introdució l'usuariu.

## Error codes:

5 Llamada a procedimientu non válida

## Exemplu:

    Sub ExampleCBool

    Dim sText As String

        sTestu = InputBox("Por favor, escriba una frase curtia:")

        ' Comprobar si la pallabra »and« apaez na frase.

        ' En llugar d'usar la llinia de comandos

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

        ' la función CBool aplicase de la forma siguiente:

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

            MsgBox "La pallabra "y" apaez na frase qu'acaba d'escribir"

        EndIf

    End Sub