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

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