IBM Lotus Symphony


Funkcja CBool [środowisko wykonawcze]

Przypisuje wynikowi porównania łańcuchów lub liczb wartość logiczną lub przekształca pojedyncze wyrażenie liczbowe w wyrażenie logiczne.

Składnia

CBool (Wyrażenie_1 {= | <> | < | > | <= | >=} Wyrażenie_2) lub CBool (Liczba)

Zwracana wartość

Wartość boolowska

Parametry

Wyrażenie_1, Wyrażenie_2: Wyrażenia tekstowe lub liczbowe, które mają być porównywane. Jeśli wyrażenia są zgodne, funkcja CBool zwraca wartość True, w przeciwnym razie zwraca wartość False.

Liczba: Wyrażenie liczbowe, które ma być przekształcane. Jeśli wyrażenie jest równe 0, zwracana jest wartość False, w przeciwnym razie zwracana jest wartość True.

W poniższym przykładzie użyto funkcji CBool do określania wartości zwracanej przez funkcję Instr. Funkcja sprawdza, czy w zdaniu wprowadzonym przez użytkownika znajduje się słowo kluczowe "i".

Kody błędów

5 Nieprawidłowe wywołanie procedury

Przykład

Sub Przyklad_CBool

Dim sTekst As String

sTekst = InputBox("Wprowadź krótkie zdanie:")

REM Sprawdzenie, czy spójnik i występuje w zdaniu.

REM Zamiast wiersza komend

REM If Instr(Input, "i")<>0 Then...

REM można zastosować funkcję CBool w następujący sposób:

If CBool(Instr(sTekst, "i")) Then

MsgBox "Spójnik i występuje we wprowadzonym zdaniu!"

EndIf

End Sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe