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

Axúdenos, por favor!