Funció CBool
Converteix una comparació de cadena o una comparació numèrica en una expressió booleana, o converteix una expressió numèrica senzilla en una expressió booleana.
Sintaxi:
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)
Valor de retorn:
Bool
Paràmetres:
Expressió1, Expressió2: Qualsevol expressió de cadena o numèrica que vulgueu comparar. Si les expressions coincideixen, la funció CBool torna Cert, si no, torna Fals.
Nombre: Qualsevol expressió numèrica que vulgueu convertir. Si l'expressió equival a 0, es torna Fals, si no, es torna Cert.
L'exemple següent utilitza la funció CBool per avaluar el valor que es torna amb la funció Instr. La funció comprova si la paraula "and" es troba a la frase que ha introduït l'usuari.
Exemple:
Sub ExampleCBool
Dim sText As String
sText = InputBox ("Introduïu una frase curta:")
' Comproveu si la paraula »and« apareix a la frase.
' En lloc de la línia d'ordes
' If Instr(Input, "and")<>0 Then...
' la funció CBool s'aplica tal com s'indica a continuació:
If CBool(Instr(sText, "and")) Then
MsgBox "La paraula »and« apareix a la frase que heu introduït!"
EndIf
End Sub