Λειτουργία VBA DatePart

DatePart Περιγραφή

Επιστρέφει ένα καθορισμένο τμήμα μιας δεδομένης ημερομηνίας.

Απλά Παραδείγματα DatePart

Εδώ είναι ένα απλό παράδειγμα DatePart:

123 Υπο ημερομηνίαPart_Year_Test ()MsgBox DatePart ("εεεε", #1/1/2019 #)Τέλος υπο

Αυτός ο κωδικός θα επιστρέψει το 2022.

Σύνταξη DatePart

Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "DatePart (" για να δείτε τη σύνταξη για τη συνάρτηση DatePart:

Η συνάρτηση DatePart περιέχει 4 ορίσματα:

Διάστημα: Μονάδα χρόνου (Ημέρες, Μήνες, Χρόνια κ.λπ.). Εισαγάγετε ως συμβολοσειρά. (π.χ. "m" για το μήνα)

Σύνθεση Περιγραφή
εεεε Ετος
q Τέταρτο
Μ Μήνας
y Ημέρα του Έτους
ρε Ημέρα
w Καθημερινή
ww Εβδομάδα
η Ωρα
ν Λεπτό
μικρό Δεύτερος

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

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

Συνεχής αξία Περιγραφή
vbUseSystem 0 Χρησιμοποιήστε τη ρύθμιση NLS API.
vbSunday 1 Κυριακή (προεπιλογή)
vbΔευτέρα 2 Δευτέρα
vbΤρίτη 3 Τρίτη
vbΤετάρτη 4 Τετάρτη
vb Πέμπτη 5 Πέμπτη
vbΠαρασκευή 6 Παρασκευή
vbΣάββατο 7 Σάββατο

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

Συνεχής αξία Περιγραφή
vbUseSystem 0 Χρησιμοποιήστε τη ρύθμιση NLS API.
vbFirstJan1 1 Ξεκινήστε με την εβδομάδα στην οποία εμφανίζεται η 1η Ιανουαρίου (προεπιλογή).
vbFirstFourDays 2 Ξεκινήστε με την πρώτη εβδομάδα που έχει τουλάχιστον τέσσερις ημέρες το νέο έτος.
vbFirstFullWeek 3 Ξεκινήστε με την πρώτη ολόκληρη εβδομάδα του έτους.

Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!

Παραδείγματα της συνάρτησης Excel VBA DatePart

Αναφορά ημερομηνιών

Αρχικά, θα επιδείξουμε διαφορετικούς τρόπους αναφοράς ημερομηνιών χρησιμοποιώντας τη συνάρτηση VBA DatePart.

Κάθε μία από αυτές τις συναρτήσεις DatePart παράγει το ίδιο αποτέλεσμα:

123456789 Sub DateAdd_ReferenceDates ()MsgBox DatePart ("εεεε", #4/1/2019 #)MsgBox DatePart ("εεεε", DateSerial (2019, 4, 1))MsgBox DatePart ("εεεε", DateValue ("1 Απριλίου 2022"))Τέλος υπο

Or μπορείτε να αναφέρετε ένα κελί που περιέχει ημερομηνία:

12345 Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("εεεε", Εύρος ("C2"). Τιμή)Τέλος υπο

Or δημιουργήστε και αναφέρετε μεταβλητές ημερομηνίας:

12345678 Sub DatePart_Variable ()Dim dt Ως ημερομηνίαdt = #4/1/2019 #MsgBox DateAdd ("εεεε", dt)Τέλος υπο

Χρήση διαφορετικών μονάδων διαστήματος

Τέταρτο

123 Sub DatePart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)Τέλος υπο

Μήνας

12345 Sub DatePart_Month ()MsgBox DatePart ("m", #6/30/2019 #)«ισοδύναμοΜήνας MsgBox (#6/30/2019#)Τέλος υπο

Ημέρα

12345 Sub DatePart_Day ()MsgBox DatePart ("d", #6/30/2019 #)«ισοδύναμοMsgBox Day (#6/30/2019#)Τέλος υπο

Εβδομάδα

12345 Υπο ημερομηνίαPart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)«ισοδύναμοMsgBox Εβδομάδα (#6/30/2019#)Τέλος υπο

Ωρα

123456789101112 Sub DatePart_Hour ()Dim dt Ως ημερομηνίαDim nHour As Longdt = #8/14/2019 9:30:00 π.μ. #nHour = DatePart ("h", dt)MsgBox nHour«ισοδύναμοMsgBox Hour (dt)Τέλος υπο

Λεπτά

123456 Sub DatePart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 π.μ. #)«ισοδύναμοMsgBox Minute (#8/14/2019 9:15:00 π.μ.#)MsgBox Minute (#9: 15: 00 π.μ.#)Τέλος υπο

Δεύτερος

123456 Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 9:15:15 ΠΜ #)«ισοδύναμοMsgBox Second (#8/14/2019 9:15:15 π.μ.#)MsgBox Δεύτερο (#9: 15: 15 π.μ.#)Τέλος υπο
wave wave wave wave wave