Επιστρέφει τους αριθμούς που περιέχονται σε μια συμβολοσειρά, με τη μορφή αριθμητικής τιμής κατάλληλου τύπου.
Σύνταξη
Val(συμβολοσειρά)
Το απαιτούμενο όρισμα συμβολοσειράςείναι οποιαδήποτε έγκυρη παράσταση συμβολοσειράς.
Παρατηρήσεις
Η συνάρτηση Val σταματά να διαβάζει τη συμβολοσειρά στον πρώτο χαρακτήρα που δεν μπορεί να αναγνωρίσει ως μέρος ενός αριθμού. Τα σύμβολα και οι χαρακτήρες που συχνά θεωρούνται τμήματα αριθμητικών τιμών, όπως τα σύμβολα δολαρίου και τα κόμματα, δεν αναγνωρίζονται. Ωστόσο, η συνάρτηση αναγνωρίζει τα προθέματα &O της βάσης (για οκταδικό) και &H (για δεκαεξαδικό). Τα κενά, οι χαρακτήρες tab και οι χαρακτήρες τροφοδοσίας γραμμής αφαιρούνται από το όρισμα.
Η ακόλουθη συνάρτηση επιστρέφει την τιμή 1615198:
Val(" 1615 198th Street N.E.")
Στον παρακάτω κώδικα, η συνάρτηση Val επιστρέφει την δεκαδική τιμή -1 για τη δεκαεξαδική τιμή που εμφανίζεται:
Val("&HFFFF")
Σημείωση
Η συνάρτηση Val αναγνωρίζει μόνο την τελεία (.) ως έγκυρο διαχωριστικό δεκαδικών. Όταν χρησιμοποιούνται διαφορετικά διαχωριστικά δεκαδικών, όπως στις διεθνείς εφαρμογές, χρησιμοποιήστε το CDbl αντί για να μετατρέψετε μια συμβολοσειρά σε αριθμό.
Παράδειγμα ερωτήματος
| Έκφραση | Αποτελέσματα |
|---|---|
| SELECT DateofSale,val(DateofSale) AS testVal FROM ProductSales; | Επιστρέφει τις τιμές από το πεδίο "DateofSale" και τους αρχικούς αριθμητικούς χαρακτήρες από τις τιμές του πεδίου "DateofSale" στο testVal στήλης. Το στοιχείο Val() θα σταματήσει να διαβάζει τη συμβολοσειρά στον πρώτο μη αριθμητικό χαρακτήρα. |
Παράδειγμα VBA
Σημείωση
Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση Val για να επιστρέψει τους αριθμούς που περιέχονται σε μια συμβολοσειρά.
Dim MyValue
MyValue = Val("2457") ' Returns 2457.
MyValue = Val(" 2 45 7") ' Returns 2457.
MyValue = Val("24 and 57") ' Returns 24.