CBool Function

Converteix una comparació de cadena o una comparació numèrica en una expressió booleana, o converteix una expressió numèrica senzilla en una expressió booleana.

Sintaxi:

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)

Valor de retorn:

Bool

Paràmetres:

Expressió1, Expressió2: Qualsevol expressió de cadena o numèrica que vulgueu comparar. Si les expressions coincideixen, la funció CBool torna Cert, si no, torna Fals.

Nombre: Qualsevol expressió numèrica que vulgueu convertir. Si l'expressió equival a 0, es torna Fals, si no, es torna Cert.

L'exemple següent utilitza la funció CBool per avaluar el valor que es torna amb la funció Instr. La funció comprova si la paraula "and" es troba a la frase que ha introduït l'usuari.

Codis d'error

5 La crida al procediment no és vàlida

Exemple:

Sub ExampleCBool

Dim sText As String

    sText = InputBox ("Introduïu una frase curta:")

    ' Comproveu si la paraula »and« apareix a la frase.

    ' En lloc de la línia d'ordres

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

    ' la funció CBool s'aplica tal com s'indica a continuació:

    If CBool(Instr(sText, "and")) Then

        MsgBox "La paraula »and« apareix a la frase que heu introduït!"

    EndIf

End Sub