IBM Lotus Symphony


CBool-Funktion [Laufzeit]

Konvertiert einen Zeichenfolgevergleich, respektive einen Vergleich numerischer Werte in einen booleschen Ausdruck oder wandelt einen einzelnen numerischen Ausdruck in einen booleschen Ausdruck um.

Syntax:

CBool (Ausdruck1 {= | <> | < | > | <= | >=} Ausdruck2) oder CBool (Zahl)

Rückgabewert:

Bool

Parameter:

Ausdruck1, Ausdruck2: Beliebige numerische oder Zeichenfolgeausdrücke, die Sie vergleichen möchten. Sind die Ausdrücke identisch, gibt die Funktion CBool den Wert True zurück, ansonsten False.

Zahl: Ein beliebiger numerischer Ausdruck, den Sie konvertieren möchten. Wenn der Ausdruck 0 ergibt, wird False zurückgegeben, ansonsten True.

Im folgenden Beispiel wird die Funktion CBool verwendet, um den Rückgabewert der Funktion Instr auszuwerten. Die Funktion überprüft, ob der vom Benutzer eingegebene Satz das Wort "and" enthält.

Fehlercodes

5 Invalid procedure call

Beispiel:

Sub ExampleCBool

Dim sText As String

sText = InputBox("Bitte geben Sie einen kurzen Satz ein:")

REM Prüfen, ob in dem vom Benutzer eingegebenen Satz das Wort 'und' vorkommt.

REM Anstatt der Befehlszeile

REM If Instr(Eingabe, "und")<>0 Then...

REM Die CBool-Funktion wird wie folgt verwendet:

If CBool(Instr(sText, "und")) Then

MsgBox "Das Wort 'und' kommt in dem von Ihnen eingegebenen Satz vor!"

EndIf

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken