IBM Lotus Symphony
|
Convertit une comparaison de chaînes de caractères ou une comparaison numérique en expression booléenne, ou bien une expression numérique en expression booléenne.
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) ou CBool (Number)
Booléenne
Expression1, Expression2 : expressions de type chaîne de caractères ou numérique à comparer. Si les expressions concordent, la fonction CBool renvoie True, ou False dans le cas contraire.
Number : expression numérique à convertir. La fonction renvoie la valeur False si l'expression est égale à 0, et la valeur True dans le cas contraire.
L'exemple suivant utilise la fonction CBool pour évaluer la valeur renvoyée par la fonction Instr. La fonction vérifie si le mot "and" est présent dans la phrase entrée par l'utilisateur.
Sub ExampleCBool
Dim sText As String
sText = InputBox("Please enter a short sentence:")
REM Proof if the word »and« appears in the sentence.
REM Instead of the command line
REM If Instr(Input, "et")<>0 Then...
REM the CBool function is applied as follows:
If CBool(Instr(sText, "et")) Then
MsgBox "The word »and« appears in the sentence you entered!"
EndIf
End Sub