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