Επιστρέφει μια συμβολοσειρά που παρέχει πληροφορίες σχετικά με μια μεταβλητή.
Σύνταξη
TypeName(όνομα_μεταβλητής)
Το απαιτούμενο όρισμα όνομα_μεταβλητήςείναι μια Μεταβλητή που περιέχει οποιαδήποτε μεταβλητή εκτός από τη μεταβλητή ενός τύπου που ορίζεται από το χρήστη.
Παρατηρήσεις
Η συμβολοσειρά που επιστρέφεται από το TypeName μπορεί να είναι οποιαδήποτε από τις εξής:
| Επιστρεφόμενη συμβολοσειρά | Μεταβλητή |
|---|---|
| Τύπος αντικειμένου | Ένα αντικείμενο του οποίου ο τύπος είναι τύπος αντικειμένου |
| Byte | Τιμή Byte |
| Ακέραιος | Ακέραιος |
| Μεγάλη | Ακέραιος μεγάλου μήκους |
| Single | Αριθμός κινητής υποδιαστολής μονής ακρίβειας |
| Double | Αριθμός κινητής υποδιαστολής διπλής ακρίβειας |
| Νομισματική μονάδα | Τιμή νομισματικής μονάδας |
| Δεκαδικός | Δεκαδική τιμή |
| Ημερομηνία | Τιμή ημερομηνίας |
| String | Συμβολοσειρά |
| δυαδική τιμή | Δυαδική τιμή |
| Σφάλμα | Μια τιμή σφάλματος |
| Κενό | Απροετοίμαστων |
| Null | Δεν υπάρχουν έγκυρα δεδομένα |
| Αντικείμενο | Ένα αντικείμενο |
| Άγνωστο | Ένα αντικείμενο του οποίου ο τύπος είναι άγνωστος |
| Τίποτα | Μεταβλητή αντικειμένου που δεν αναφέρεται σε αντικείμενο |
Εάν το όνομα_μεταβλητής είναι ένας πίνακας, η επιστρεφόμενη συμβολοσειρά μπορεί να είναι οποιαδήποτε από τις πιθανές συμβολοσειρές που επιστρέφονται (ή Μεταβλητή) με προσαρτημένες κενές παρενθέσεις. Για παράδειγμα, εάν το όνομα_μεταβλητής είναι ένας πίνακας ακέραιων, η συνάρτηση TypeName επιστρέφει "Integer()".
Παράδειγμα
Σημείωση
Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση TypeName για να επιστρέψει πληροφορίες σχετικά με μια μεταβλητή.
Dim NullVar, MyType, StrVar As String
Dim IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null ' Assign Null value.
MyType = TypeName(StrVar) ' Returns "String".
MyType = TypeName(IntVar) ' Returns "Integer".
MyType = TypeName(CurVar) ' Returns "Currency".
MyType = TypeName(NullVar) ' Returns "Null".
MyType = TypeName(ArrayVar) ' Returns "Integer()".