Applies ToAccess για Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Επιστρέφει μια Μεταβλητή (Ημερομηνία) για ένα συγκεκριμένο έτος, μήνα και ημέρα.

Σύνταξη

DateSerial ( έτος; μήνας; ημέρα )

Προειδοποίηση    Βεβαιωθείτε ότι τα ορίσματα βρίσκονται στη σωστή περιοχή τιμών. Ένα μη έγκυρο όρισμα μπορεί να έχει ως αποτέλεσμα εσφαλμένο αποτέλεσμα.

Η σύνταξη της συνάρτησης DateSerial περιλαμβάνει τα παρακάτω ορίσματα:

Όρισμα

Περιγραφή

έτος

Υποχρεωτικό. Ακέραιος αριθμός. Αριθμός μεταξύ 100 και 9999 ή αριθμητική παράσταση.

μήνας

Υποχρεωτικό. Ακέραιος αριθμός. Οποιαδήποτε αριθμητική παράσταση.

ημέρα

Υποχρεωτικό. Ακέραιος αριθμός. Οποιαδήποτε αριθμητική παράσταση.

Παρατηρήσεις

Για να καθορίσετε μια ημερομηνία, όπως η 31η Δεκεμβρίου 1991, η περιοχή αριθμών για κάθεόρισμαDateSerial θα πρέπει να βρίσκεται στην αποδεκτή περιοχή για τη μονάδα. δηλαδή, 1–31 για τις ημέρες και 1–12 για τους μήνες. Ωστόσο, μπορείτε επίσης να καθορίσετε σχετικές ημερομηνίες για κάθε όρισμα χρησιμοποιώντας οποιαδήποτε αριθμητική παράσταση που αντιπροσωπεύει έναν αριθμό ημερών, μηνών ή ετών πριν ή μετά από μια συγκεκριμένη ημερομηνία.

Το παρακάτω παράδειγμα χρησιμοποιεί αριθμητικές παραστάσεις αντί για απόλυτους αριθμούς ημερομηνίας. Εδώ η συνάρτηση DateSerial επιστρέφει μια ημερομηνία που είναι η ημέρα πριν από την πρώτη ημέρα (1 - 1), δύο μήνες πριν από τον Αύγουστο (8 - 2), 10 χρόνια πριν από το 1990 (1990 - 10); με άλλα λόγια, στις 31 Μαΐου 1980.

DateSerial(1990 - 10, 8 - 2, 1 - 1)

Τα διψήφια έτη για το όρισμα έτος ερμηνεύονται με βάση τις ρυθμίσεις υπολογιστή που ορίζονται από το χρήστη. Οι προεπιλεγμένες ρυθμίσεις είναι ότι οι τιμές μεταξύ 0 και 29, συμπεριλαμβανομένων των τιμών, ερμηνεύονται ως έτη 2000–2029. Οι προεπιλεγμένες τιμές μεταξύ 30 και 99 ερμηνεύονται ως έτη 1930–1999. Για όλα τα ορίσματα για όλα τα υπόλοιπα έτη , χρησιμοποιήστε ένα τετραψήφιο έτος (για παράδειγμα, 1800).

Οι εκδόσεις των Windows που είναι παλαιότερες από τα Windows 2000 ερμηνεύουν τα διψήφια έτη με βάση τις προεπιλογές που περιγράφονται παραπάνω. Για να βεβαιωθείτε ότι η συνάρτηση επιστρέφει την κατάλληλη τιμή, χρησιμοποιήστε ένα τετραψήφιο έτος.

Όταν οποιοδήποτε όρισμα υπερβαίνει την αποδεκτή περιοχή για το συγκεκριμένο όρισμα, αυξάνεται στην επόμενη μεγαλύτερη μονάδα ανάλογα με την περίπτωση. Για παράδειγμα, εάν καθορίσετε 35 ημέρες, υπολογίζεται ως ένας μήνας και κάποιος αριθμός ημερών, ανάλογα με το σημείο του έτους που εφαρμόζεται. Εάν οποιοδήποτε μεμονωμένο όρισμα βρίσκεται εκτός της περιοχής -32.768 έως 32.767, προκύπτει σφάλμα. Εάν η ημερομηνία που καθορίζεται από τα τρία ορίσματα βρίσκεται εκτός της αποδεκτής περιοχής ημερομηνιών, προκύπτει σφάλμα.

Σημείωση: Για το έτος, το μήνα και την ημέρα, εάν η ρύθμιση της ιδιότητας Ημερολόγιο είναι Γρηγοριανό, η τιμή που παρέχεται θεωρείται γρηγοριανό. Εάν η ρύθμιση της ιδιότητας Ημερολόγιο είναι Χίζρι, η παρεχόμενη τιμή λαμβάνεται ως Χίζρι.

Το τμήμα ημερομηνίας που επιστρέφεται είναι στις μονάδες χρονικής περιόδου του τρέχοντος ημερολογίου της Visual Basic. Για παράδειγμα, εάν το τρέχον ημερολόγιο είναι Χίζρι και η ημερομηνία που επιστρέφεται είναι το έτος, η τιμή του έτους είναι ένα έτος Χίζρι. Για το έτος ορίσματος, οι τιμές μεταξύ 0 και 99, συμπεριλαμβανομένων των τιμών, ερμηνεύονται ως τα έτη 1400-1499. Για όλες τις τιμές του άλλου έτους , χρησιμοποιήστε το πλήρες τετραψήφιο έτος (για παράδειγμα, 1520).

Παράδειγμα ερωτήματος

Expression

Αποτελέσματα

SELECT Dateserial(2018;12;13) AS NewDate FROM ProductSales;

Επιστρέφει την "ημερομηνία" για το καθορισμένο έτος, μήνα και ημέρα που καταχωρήθηκε στα ορίσματα της συνάρτησης και εμφανίζεται στη στήλη "NewDate". Αποτέλεσμα: "12/13/2018".

Παράδειγμα VBA

Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.

Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση DateSerial για να επιστρέψει την ημερομηνία για το καθορισμένο έτος, μήνα και ημέρα.

Dim MyDate ' MyDate contains the date for February 12, 1969. MyDate = DateSerial(1969, 2, 12) ' Return a date.

Επιλογή της σωστής συνάρτησης ημερομηνίας

Χρειάζεστε περισσότερη βοήθεια;

Θέλετε περισσότερες επιλογές;

Εξερευνήστε τα πλεονεκτήματα της συνδρομής, περιηγηθείτε σε εκπαιδευτικά σεμινάρια, μάθετε πώς μπορείτε να προστατεύσετε τη συσκευή σας και πολλά άλλα.

Οι κοινότητες σάς βοηθούν να κάνετε και να απαντάτε σε ερωτήσεις, να δίνετε σχόλια και να ακούτε από ειδικούς με πλούσια γνώση.