Η συνάρτηση DatePart

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

Επιστρέφει μια Μεταβλητή (Ακέραιος) που περιέχει το καθορισμένο τμήμα μιας δεδομένης ημερομηνίας.

Σύνταξη

DatePart ( χρονικό διάστημα, ημερομηνία [, πρώτη_ημέρα_εβδομάδας] [, πρώτη_εβδομάδα_έτους] )

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

Όρισμα

Περιγραφή

χρονικό διάστημα

Απαιτείται. Παράσταση συμβολοσειράς που είναι το χρονικό διάστημα που θέλετε να επιστραφεί.

ημερομηνία

Απαιτείται. Διακύμανσης Τιμή (ημερομηνία) που θέλετε να αξιολογήσετε.

πρώτη_ημέρα_εβδομάδας

Προαιρετικό. Μια σταθερά που καθορίζει την πρώτη ημέρα της εβδομάδας. Εάν δεν καθορίζεται, θεωρείται η Κυριακή.

πρώτη_εβδομάδα_έτους

Προαιρετικό. Μια σταθερά που καθορίζει την πρώτη εβδομάδα του έτους. Εάν δεν καθορίζονται, την πρώτη εβδομάδα θεωρείται εβδομάδας με την οποία γίνεται 1 Ιανουαρίου.


Ρυθμίσεις γγράφου

Το χρονικό διάστημαόρισμα περιλαμβάνει αυτές τις ρυθμίσεις:

Ρύθμιση

Περιγραφή

εεεε

Έτος

τ

Τρίμηνο

μ

Μήνας

y

Ημέρα του έτους

η

Ημέρα

β

Weekday

ββ

Εβδομάδα

ω

Ώρα

λ

Λεπτό

δ

Δεύτερη


Το όρισμα πρώτη_ημέρα_εβδομάδας περιλαμβάνει αυτές τις ρυθμίσεις:

Σταθερά

Τιμή

Περιγραφή

vbUseSystem

0

Χρησιμοποιήστε τη ρύθμιση NLS API.

vbSunday

1

Κυριακή (προεπιλογή)

Αντίθετα

2

Δευτέρα

vbTuesday

3

Τρίτη

vbWednesday

4

Τετάρτη

vbThursday

5

Πέμπτη

vbFriday

6

Παρασκευή

vbSaturday

7

Σάββατο


Το όρισμα πρώτη_εβδομάδα_έτους περιλαμβάνει αυτές τις ρυθμίσεις:

Σταθερά

Τιμή

Περιγραφή

vbUseSystem

0

Χρησιμοποιήστε τη ρύθμιση NLS API.

vbFirstJan1

1

Ξεκινήστε με εβδομάδας με την οποία 1 Ιανουαρίου (προεπιλογή).

vbFirstFourDays

2

Ξεκινήστε με την πρώτη εβδομάδα που έχει τουλάχιστον τέσσερις ημέρες στο νέο έτος.

vbFirstFullWeek

3

Ξεκινήστε την πρώτη πλήρη εβδομάδα του έτους.


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

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση DatePart για να αξιολογήσετε μια ημερομηνία και να επιστρέψετε ένα συγκεκριμένο χρονικό διάστημα. Για παράδειγμα, μπορείτε να χρησιμοποιήσετε DatePart για να υπολογίσετε την ημέρα της εβδομάδας ή την τρέχουσα ώρα.

Το όρισμα πρώτη_ημέρα_εβδομάδας επηρεάζει τους υπολογισμούς που χρησιμοποιούν τα σύμβολα διαστήματος "w" και "ΕΕ".

Εάν είναιΦιdaλεκτική σταθερά ημερομηνίας, το καθορισμένο έτος γίνεται μόνιμο μέρος αυτής της ημερομηνίας. Ωστόσο, εάν ημερομηνία περικλείεται σε διπλά εισαγωγικά (""), και μπορείτε να παραλείψετε το έτος, το τρέχον έτος εισάγεται στον κώδικα κάθε φορά που αξιολογείται η παράσταση ημερομηνίας . Αυτό καθιστά δυνατή σύνταξη κώδικα που μπορεί να χρησιμοποιηθεί σε διαφορετικά έτη.

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

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

Παράδειγμα

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

Αυτό το παράδειγμα λαμβάνει μια ημερομηνία και, χρησιμοποιώντας τη συνάρτηση DatePart , εμφανίζει το τρίμηνο του έτους στο οποίο προκύπτει.

Dim TheDate As Date    ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg
Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

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

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

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

×