Συνάρτηση 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