IBM Lotus Symphony
|
Przypisuje wynikowi porównania łańcuchów lub liczb wartość logiczną lub przekształca pojedyncze wyrażenie liczbowe w wyrażenie logiczne.
CBool (Wyrażenie_1 {= | <> | < | > | <= | >=} Wyrażenie_2) lub CBool (Liczba)
Wartość boolowska
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".
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