LibreOffice 7.3 Bantuan
Mengonversi perbandingan string atau perbandingan numerik ke tanda Boolean, atau mengubah tanda numerik tunggal menjadi tanda Boolean.
CBool ​​(Ekspresi1 {= | <> | <|> | <= |> =} Ekspresi2) atau CBool ​​(Angka)
Bool
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.
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