Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Συνάρτηση CBool

Μετατρέπει μια σύγκριση συμβολοσειράς ή την αριθμητική σύγκριση σε μια έκφραση Boolean, ή μετατρέπει μια ενιαία αριθμητική έκφραση σε μια έκφραση Boolean.

## Σύνταξη:

    CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) ή CBool (Number)

## Τιμή επιστροφής:

Μπουλ

## Παράμετροι:

Expression1, Expression2: Οποιεσδήποτε συμβολοσειρά ή αριθμητικές εκφράσεις που θέλετε να συγκρίνετε. Εάν οι εκφράσεις ταιριάζουν, η συνάρτηση CBool επιστρέφει True, διαφορετικά επιστρέφει False.

Number: Οποιαδήποτε αριθμητική έκφραση που θέλετε να μετατρέψετε. Εάν η έκφραση είναι ίση με 0, επιστρέφεται η τιμή False, διαφορετικά επιστρέφεται η τιμή True.

Το ακόλουθο παράδειγμα χρησιμοποιεί τη συνάρτηση CBool για να αξιολογήσει την τιμή που επιστρέφεται από την συνάρτηση Instr. Οι συνάρτηση ελέγχει εάν η λέξη "and" βρίσκεται στην πρόταση που εισήχθη από το χρήστη.

## Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

## Παράδειγμα:

    Sub ExampleCBool

    Dim sText As String

        sText = InputBox("Παρακαλώ εισάγετε μια σύντομη πρόταση:")

        ' Απόδειξη εάν η λέξη »και« εμφανίζεται στην πρόταση.

        ' Αντί της γραμμής εντολών

        ' If Instr(Input, "and")<>0 Then...

        ' η συνάρτηση CBool εφαρμόζεται ως ακολούθως:

        If CBool(Instr(sText, και)) Then

            MsgBox Η λέξη »και« εμφανίζεται στην πρόταση που πληκτρολογήσατε!

        EndIf

    End Sub