Η συνάρτηση DateSerial

Σημείωση: Θέλουμε να σας παρέχουμε το πιο πρόσφατο περιεχόμενο βοήθειας στη γλώσσα σας όσο πιο σύντομα γίνεται. Αυτή η σελίδα έχω μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας ενημερώσετε στο κάτω μέρος αυτής της σελίδας εάν οι πληροφορίες σάς φάνηκαν χρήσιμες; Εδώ θα βρείτε το άρθρο στα Αγγλικά, για να το συμβουλεύεστε εύκολα.

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

Σύνταξη

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).

Παράδειγμα

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

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

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

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×