Módulo
Contido
Índice 🔎︎

# CBool Function

Converte unha comparación numérica ou de cadeas nunha expresión booleana, ou converte unha única expresión numérica nunha expresión booleana.

## Sintaxe:

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

## Valor de retorno:

Bool

## Parámetros:

Expression1, Expression2: Any string or numeric expressions that you want to compare. If the expressions match, the CBool function returns True, otherwise False is returned.

Number: Any numeric expression that you want to convert. If the expression equals 0, False is returned, otherwise True is returned.

The following example uses the CBool function to evaluate the value that is returned by the Instr function. The function checks if the word "and" is found in the sentence that was entered by the user.

## Códigos de erro

5 Chamada de procedemento incorrecta

## Exemplo:

    Sub ExampleCBool
    Dim sText As String
        sTexto = InputBox("Escriba unha frase curta:")
        REM Verificar se a palabra »e« aparece na frase.
        REM En vez da liña de ordes
        REM If Instr(Input, "e")<>0 Then...
        REM a función CBool aplícase desta forma:
        If CBool(Instr(sTexto, "e")) Then
            MsgBox "A palabra »e« aparece na frase que introduciu!"
        EndIf
    End Sub