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

Mohon dukung kami!