IBM Lotus Symphony


Fonction CBool [Exécution]

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.

Syntaxe :

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) ou CBool (Number)

Valeur de retour :

Booléenne

Paramètres :

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.

Codes d'erreur

5 Appel de procédure incorrect

Exemple :

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques