Isi
Indeks 🔎︎

# Fungsi CBool

Mengonversi perbandingan string atau perbandingan numerik ke tanda Boolean, atau mengubah tanda numerik tunggal menjadi tanda Boolean.

## Sintaksis:

    CBool ​​(Ekspresi1 {= | <> | <|> | <= |> =} Ekspresi2) atau CBool ​​(Angka)

## Nilai hasil:

Bool

## Parameter:

Tanda1, Tanda2: Setiap string atau tanda numerik yang ingin Anda bandingkan. Jika tanda cocok, fungsi CBool mengembalikan Benar, jika tidak, Salah dikembalikan.

Nomor: Tanda numerik apa pun yang ingin Anda konversi. Jika tanda sama dengan 0, Salah dikembalikan, jika tidak, Benar dikembalikan.

Contoh berikut menggunakan fungsi CBool untuk mengevaluasi nilai yang dikembalikan oleh fungsi Instr. Fungsi memeriksa apakah kata "dan" ditemukan dalam kalimat yang dimasukkan oleh pengguna.

## Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

## Contoh:

    Sub ExampleCBool
    Dim sText As String
        sText = InputBox("Silakan masukkan kalimat pendek:")
        ' Bukti jika kata »dan« muncul dalam kalimat.
        'Sebagai gantinya baris perintah
        ' Jika Instr(Input, "and")<>0 Lalu ...
        ' Fungsi CBool diterapkan sebagai berikut:
        Jika CBool ​​(Instr(sTeks, "dan")) Maka
            MsgBox "Kata »dan« muncul di kalimat yang Anda masukkan!"
        EndIf
    End Sub