Fonction CBool

Renvoie une expression qui a été convertie en variante de sous-type Boolean.

Syntaxe

CBool(expression)

Remarques

L'argument expression représente toute expression valide.

Si expression est égal à zéro, False est renvoyé. Sinon, True est renvoyé. Si une expression ne peut pas être interprétée comme une valeur numérique, une erreur d'exécution survient.

Les exemples suivants utilisent la fonction CBool pour convertir une expression en valeur booléenne. Si l'expression représente une valeur différente de zéro, CBool renvoie True. Sinon, elle renvoie False.

Les exemples suivants illustrent l'utilisation de la fonction CBool :

Exemple 1 : comparaison de deux nombres égaux

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

Exemple 2 : test d'une variable avec une valeur différente de zéro

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

Exemple 3 : test d'une variable avec une valeur zéro

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

Exemple 4 :

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

Exemple 5 : chaîne vide

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

Exemple 6 : utilisation de CBool dans des instructions conditionnelles

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