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 π.μ.#)Τέλος υπο |