DateDiff Περιγραφή
Επιστρέφει τη διαφορά μεταξύ δύο τιμών ημερομηνίας, με βάση το καθορισμένο διάστημα.
Απλά Παραδείγματα DateDiff
Εδώ είναι ένα απλό παράδειγμα DateDiff:
| 123 | Υπο ημερομηνίαDiff_Year ()MsgBox DateDiff ("εεεε", #1/1/2019 #, #8/1/2021 #)Τέλος υπο |
Αυτός ο κωδικός θα επιστρέψει 2. Αυτή είναι η διαφορά ανά έτος (υποδεικνύεται με "εεεε") μεταξύ 2 ημερών. (2021 - 2022 = 2)
Στο παραπάνω παράδειγμα, αλλάζοντας τις θέσεις της ημερομηνίας1 και της ημερομηνίας2.
| 123 | Sub DateDiff_Year ()MsgBox DateDiff ("εεεε", #8/1/2021 #, #1/1/2019 #)Τέλος υπο |
Αυτός ο κωδικός θα επιστρέψει -2.
Σύνταξη DateDiff
Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "DateDiff (" για να δείτε τη σύνταξη για τη συνάρτηση DateDiff:
Η συνάρτηση DateDiff περιέχει 5 ορίσματα:
Διάστημα: Μονάδα χρόνου (Ημέρες, Μήνες, Χρόνια κ.λπ.). Εισαγάγετε ως συμβολοσειρά. (π.χ. "m" για το μήνα)
| Σύνθεση | Περιγραφή |
|---|---|
| εεεε | Ετος |
| q | Τέταρτο |
| Μ | Μήνας |
| y | Ημέρα του Έτους |
| ρε | Ημέρα |
| w | Καθημερινή |
| ww | Εβδομάδα |
| η | Ωρα |
| ν | Λεπτό |
| μικρό | Δεύτερος |
Ημερομηνία 1, Ημερομηνία 2: Δύο ημερομηνίες που θέλετε να χρησιμοποιήσετε στον υπολογισμό.
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 DateDiff
Αναφορά ημερομηνιών
Αρχικά, θα επιδείξουμε διαφορετικούς τρόπους αναφοράς ημερομηνιών χρησιμοποιώντας τη συνάρτηση VBA DateDiff.
Κάθε μία από αυτές τις συναρτήσεις DateDiff παράγει το ίδιο αποτέλεσμα:
| 123456789 | Sub DateDiff_ReferenceDates ()MsgBox DateDiff ("m", #4/1/2019 #, #8/1/2021 #)MsgBox DateDiff ("m", DateSerial (2019, 4, 1), DateSerial (2021, 8, 1))MsgBox DateDiff ("m", DateValue ("1 Απριλίου 2022"), DateValue ("1 Αυγούστου 2022"))Τέλος υπο |
Or μπορείτε να αναφέρετε κελιά που περιέχουν ημερομηνίες:
| 12345 | Sub DateDiff_ReferenceDates_Cell ()MsgBox DateDiff ("m", Range ("C2"). Τιμή, Εύρος ("C3"). Τιμή)Τέλος υπο |
Or δημιουργήστε και αναφέρετε μεταβλητές ημερομηνίας:
| 123456789 | Sub DateDiff_Variable ()Dim dt1 Ως ημερομηνία, dt2 ως ημερομηνίαdt1 = #4/1/2019 #dt2 = #8/1/2021 #MsgBox DateDiff ("m", dt1, dt2)Τέλος υπο |
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
Χρήση διαφορετικών μονάδων διαστήματος
Κατάλυμα
| 123 | Sub DateDiff_Quarter ()MsgBox "ο αριθμός των τετάρτων:" & DateDiff ("q", #1/1/2019 #, #1/1/2021 #)Τέλος υπο |
Μήνες
| 123 | Sub DateDiff_Month ()MsgBox "ο αριθμός των μηνών:" & DateDiff ("m", #1/1/2019 #, #1/1/2021 #)Τέλος υπο |
Μέρες
| 123 | Sub DateDiff_Day ()MsgBox "ο αριθμός των ημερών:" & DateDiff ("d", #1/1/2019 #, #1/1/2021 #)Τέλος υπο |
Εβδομάδες
| 123 | Sub DateDiff_Week ()MsgBox "ο αριθμός των εβδομάδων:" & DateDiff ("w", #1/1/2019 #, #1/1/2021 #)Τέλος υπο |
Ωρες
| 123456789101112 | Sub DateDiff_Hour ()Dim dt1 Ως ημερομηνίαDim dt2 Ως ημερομηνίαDim nDiff As Longdt1 = #8/14/2019 9:30:00 π.μ. #dt2 = #8/14/2019 1:00:00 ΜΜ #nDiff = DateDiff ("h", dt1, dt2)MsgBox "ώρες:" & nDiffΤέλος υπο |
Λεπτά
| 123 | Sub DateDiff_Minute ()MsgBox "mins:" & DateDiff ("n", #8/14/2019 9:30:00 ΠΜ #, #8/14/2019 9:35:00 ΠΜ #)Τέλος υπο |
Δευτερόλεπτα
| 123 | Sub DateDiff_Second ()MsgBox "secs:" & DateDiff ("s", #8/14/2019 9:30:10 ΠΜ #, #8/14/2019 9:30:22 ΠΜ #)Τέλος υπο |
