Função CBool

Retorna uma expressão que foi convertida em uma Variante do subtipo Booliano.

Sintaxe

CBool(expression)

Comentários

O argumento expression é qualquer expressão válida.

Se a expressão for zero, retornará False; caso contrário, retornará True. Se a expressão não puder ser interpretada como um valor numérico, ocorrerá um erro de tempo de execução.

O exemplo a seguir usa a função CBool para converter uma expressão em um Booliano. Se a expressão resultar em um valor diferente de zero, CBool retornará True; caso contrário, retornará False.

O exemplo a seguir ilustra o uso da Função CBool:

Exemplo 1: Comparação de dois números iguais

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

Exemplo 2: Teste de variável com valor diferente de zero

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

Exemplo 3: Teste de variável com valor zero

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

Exemplo 4:

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

Exemplo 5: String vazia

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

Exemplo 6: Uso de CBool em Instruções Condicionais

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