Función CBool

Devuelve una expresión que se ha convertido en una variante de subtipo Boolean.

Sintaxis

CBool(expression)

Observaciones

El argumento expression es cualquier expresión válida.

Si la expresión es cero, se devuelve False; de lo contrario, se devuelve True. Si una expresión no se puede interpretar como valor numérico, se produce un error de tiempo de ejecución.

En el siguiente ejemplo se utiliza la función CBool para convertir una expresión en booleano. Si la expresión se evalúa como un valor distinto de cero, CBool devuelve True; de lo contrario, devuelve False.

En el siguiente ejemplo se muestra el uso de la función CBool:

Ejemplo 1: comparación de dos números iguales

Dim A, B
A = 5
B = 5
Check = CBool(A = B)   'Converts the expression (A = B) to Boolean
'Output: True

Ejemplo 2: prueba de una variable con un valor distinto de cero

Dim A
A = 1
Check = CBool(A)   'Converts the expression (A) to Boolean
'Output: True

Ejemplo 3: prueba de una variable con valor cero

Dim A
A = 0
Check = CBool(A)   'Converts the expression (A) to Boolean
'Output: False

Ejemplo 4:

Dim strValue
strValue = "Hello"
Check = CBool(Len(strValue) > 0)   'Converts the result of Len(strValue) > 0 to Boolean
'Output: True

Ejemplo 5: cadena vacía

Dim strValue
strValue = ""
Check = CBool(Len(strValue) > 0)   'Converts the result of Len(strValue) > 0 to Boolean
'Output: False

Ejemplo 6: uso de CBool en sentencias condicionales

Dim value
value = 10
If CBool(value) Then 'It will enter in to IF part because value is non-zero
'Statements based on use case when value is non-zero
Else
'Statements based on use case when value is zero
End If