CBool Function
Converte unha comparación numérica ou de cadeas nunha expresión booleana, ou converte unha única expresión numérica nunha expresión booleana.
Sintaxe:
CBool (Expresión1 {= | <> | < | > | <= | >=} Expresión2) ou CBool (Número)
Valor de retorno:
Bool
Parámetros:
Expression1, Expression2: Any string or numeric expressions that you want to compare. If the expressions match, the CBool function returns True, otherwise False is returned.
Number: Any numeric expression that you want to convert. If the expression equals 0, False is returned, otherwise True is returned.
The following example uses the CBool function to evaluate the value that is returned by the Instr function. The function checks if the word "and" is found in the sentence that was entered by the user.
Exemplo:
Sub ExampleCBool
Dim sText As String
sTexto = InputBox("Escriba unha frase curta:")
REM Verificar se a palabra »e« aparece na frase.
REM En vez da liña de ordes
REM If Instr(Input, "e")<>0 Then...
REM a función CBool aplícase desta forma:
If CBool(Instr(sTexto, "e")) Then
MsgBox "A palabra »e« aparece na frase que introduciu!"
EndIf
End Sub