Funzione CBool

Restituisce un'espressione convertita in una variabile Variant di sottotipo Boolean.

Sintassi

CBool(expression)

Note

L'argomento (expression) è qualsiasi espressione valida.

Se (expression ) è zero, viene restituito False. In caso contrario, viene restituito True. Se un'espressione non può essere interpretata come valore numerico, si verifica un errore di runtime.

Nell'esempio seguente viene utilizzata la funzione CBool per convertire un'espressione in un valore booleano. Se l'espressione restituisce un valore diverso da zero, CBool restituisce True. In caso contrario, restituisce False.

Nell'esempio seguente viene illustrato l'uso della funzione CBool.

Esempio 1: confronto di due numeri uguali

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

Esempio 2: test di una variabile con un valore diverso da zero

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

Esempio 3: test di una variabile con valore zero

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

Esempio 4

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

Esempio 5: stringa Empty

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

Esempio 6: uso di CBool nelle istruzioni condizionali

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