Sintak
CBool(expression)
expression adalah argumen berupa ekpresi string atau ekspresi numerik
Tipe Hasil
Tipe data yang dihasilkan dari fungsi CBool adalah tipe data Boolean yaitu nilai True (-1) atau False (0).
Contoh script program yang memanfaatkan fungsi CBool:
Option Compare Database
Option Explicit
Private Sub Command0_Click()
Dim i As Boolean
Dim j As Boolean
i = CBool(1 < 2)
MsgBox i
j = CBool("Benar" = "Betul")
MsgBox j
End Sub
Jika script program ini dijalankan makan program akan menampilkan pesan dengan tulisan True pada message box pertama, sedangkan pada message box yang kedua pesan bernilai False.
No comments:
Post a Comment