Funkcja CBool

Przekształca porównanie ciągów lub wyrażeń numerycznych w wyrażenie logiczne lub przekształca pojedyncze wyrażenie numeryczne w wyrażenie logiczne.

Składnia:

CBool (wyrażenie1 {= | <> | < | > | <= | >=} wyrażenie2) lub CBool (liczba)

Zwracana wartość:

Wartość logiczna

Parametry:

Wyrażenie1, wyrażenie2: Dowolne ciągi lub wyrażenia numeryczne, które mają zostać porównane. Jeśli wyrażenia są zgodne z operatorem, funkcja CBool zwraca wartość True (prawda), w przeciwnym przypadku False (fałsz).

Liczba: Dowolne wyrażenie numeryczne, które ma zostać przekształcone. Jeśli wyrażenie jest równe 0, funkcja zwraca wartość False (fałsz), w przeciwnym razie zwracana jest wartość True (prawda).

Poniższy przykład korzysta z funkcji CBool w celu oszacowania wartości zwracanej przez funkcję Instr. Funkcja sprawdza, czy zdanie wprowadzone przez użytkownika zawiera słowo "jest".

Przykład:

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Wpisz krótkie zdanie:")

    ' Sprawdzenie, czy zdanie zawiera słowo "jest".

    ' Zamiast linii poleceń

    ' If Instr(Input, "jest")<>0 Then...

    ' zastosowano funkcję CBool w następujący sposób:

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

        MsgBox "Wprowadzone zdanie zawiera słowo »jest«!"

    EndIf

End Sub