Συνάρτηση CBool
Μετατρέπει μια σύγκριση συμβολοσειράς ή την αριθμητική σύγκριση σε μια έκφραση Boolean, ή μετατρέπει μια ενιαία αριθμητική έκφραση σε μια έκφραση Boolean.
Σύνταξη:
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) ή CBool (Number)
Τιμή επιστροφής:
Μπουλ
Παράμετροι:
Expression1, Expression2: Οποιεσδήποτε συμβολοσειρά ή αριθμητικές εκφράσεις που θέλετε να συγκρίνετε. Εάν οι εκφράσεις ταιριάζουν, η συνάρτηση CBool επιστρέφει True, διαφορετικά επιστρέφει False.
Number: Οποιαδήποτε αριθμητική έκφραση που θέλετε να μετατρέψετε. Εάν η έκφραση είναι ίση με 0, επιστρέφεται η τιμή False, διαφορετικά επιστρέφεται η τιμή True.
Το ακόλουθο παράδειγμα χρησιμοποιεί τη συνάρτηση CBool για να αξιολογήσει την τιμή που επιστρέφεται από την συνάρτηση Instr. Οι συνάρτηση ελέγχει εάν η λέξη "and" βρίσκεται στην πρόταση που εισήχθη από το χρήστη.
Παράδειγμα:
Sub ExampleCBool
Dim sText As String
sText = InputBox("Παρακαλώ εισάγετε μια σύντομη πρόταση:")
' Απόδειξη εάν η λέξη »και« εμφανίζεται στην πρόταση.
' Αντί της γραμμής εντολών
' If Instr(Input, "and")<>0 Then...
' η συνάρτηση CBool εφαρμόζεται ως ακολούθως:
If CBool(Instr(sText, και)) Then
MsgBox Η λέξη »και« εμφανίζεται στην πρόταση που πληκτρολογήσατε!
EndIf
End Sub