Η συνάρτηση DATEDIFF στο VBA είναι μια ενσωματωμένη συνάρτηση στο VBA η οποία επίσης κατηγοριοποιείται σε συνάρτηση ημερομηνίας και ώρας στο VBA, αυτή η συνάρτηση χρησιμοποιείται για να πάρει τη διαφορά μεταξύ δύο ημερομηνιών, αυτή η συνάρτηση παίρνει τρία ορίσματα, το πρώτο επιχείρημα είναι ποιο μέρος της διαφοράς θέλουμε που μπορεί να είναι ημέρες του έτους ή μήνες ή δευτερόλεπτα και δύο ημερομηνίες και το αποτέλεσμα είναι ακέραιος.
Συνάρτηση DATEDIFF στο VBA
Η συνάρτηση DATEDIFF στο VBA υπολογίζει τη διαφορά μεταξύ δύο ημερομηνιών σε ημέρες, μήνες, τέταρτα και έτη.
Στο Excel, η εύρεση της διαφοράς μεταξύ δύο ημερομηνιών έχει πολλούς τρόπους. Δεν χρειάζεστε έναν ειδικό τύπο για να υπολογίσετε τη διαφορά μεταξύ δύο ημερομηνιών.
Για παράδειγμα, δείτε την παρακάτω εικόνα.
Αν θέλουμε να υπολογίσουμε τη διαφορά μεταξύ αυτών των δύο ημερομηνιών, μπορούμε απλά να αφαιρέσουμε την ημερομηνία 1 από την ημερομηνία 2.
Μας έδωσε τη διαφορά μεταξύ δύο ημερομηνιών σε αρκετές ημέρες. Αυτό είναι το πρόβλημα με αυτόν τον γενικό τύπο. Εάν χρειαζόμαστε τη διαφορά σε μήνες, χρόνια, τέταρτα κ.λπ.… δεν μπορεί να δώσει.
Σε αυτό το άρθρο, θα σας δείξουμε πώς να χρησιμοποιήσετε αυτήν τη συνάρτηση DateDiff στο VBA.
Ποια είναι η συνάρτηση DATEDIFF στο Excel VBA;
Το DATEDIFF στο VBA σημαίνει "Διαφορά ημερομηνίας μεταξύ δύο ημερομηνιών".
Αυτή η συνάρτηση μπορεί να μας δώσει τον αριθμό του χρονικού διαστήματος μεταξύ δύο ημερομηνιών. Όταν θέλουμε να βρούμε τη διαφορά μεταξύ δύο ημερομηνιών, μπορούμε να την βρούμε σε ημέρες, εβδομάδες, μήνες, τέταρτα, κ.λπ…
Για να κατανοήσετε τη συνάρτηση, δείτε την παρακάτω σύνταξη της συνάρτησης.
Διάστημα: Αυτό δεν είναι παρά με ποιον τρόπο θέλετε να υπολογίσετε τη διαφορά ημερομηνίας. Είτε είναι σε ημέρες, μήνες, εβδομάδες, τέταρτα κ.λπ.
Ημερομηνία 1: Ποια είναι η πρώτη ημερομηνία που θέλετε να βρείτε τη διαφορά.
Ημερομηνία 2: Ποια είναι η δεύτερη ημερομηνία που θέλετε να βρείτε τη διαφορά από την Ημερομηνία 1. Ημερομηνία 1: Ποια είναι η πρώτη ημερομηνία που θέλετε να βρείτε τη διαφορά.
Εδώ ο τύπος είναι Ημερομηνία 2 - Ημερομηνία 1.
(Πρώτη ημέρα της εβδομάδας): Ποια είναι η πρώτη ημέρα της εβδομάδας; Μπορούμε να συμφωνήσουμε με τα ακόλουθα επιχειρήματα.
(Πρώτη εβδομάδα του έτους): Ποια είναι η πρώτη εβδομάδα του έτους. Μπορούμε να εισαγάγουμε τα ακόλουθα ορίσματα.
Παραδείγματα της συνάρτησης DATEDIFF στο Excel VBA
Ακολουθούν τα παραδείγματα του excel VBA DateDiff.
Παράδειγμα # 1 - Για να βρείτε διαφορές σε ημέρες
Ας υποθέσουμε ότι έχετε δύο ημερομηνίες, "15-01-2018" και "15-01-2019". Ας βρούμε κάθε είδους διαφορές μεταξύ αυτών των δύο ημερομηνιών.
Βήμα 1: Δημιουργήστε πρώτα ένα όνομα μακροεντολής.
Κώδικας:
Sub DateDiff_Example1 () End Sub
Βήμα 2: Ορίστε δύο μεταβλητές ως ημερομηνία.
Κώδικας:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date End Sub
Βήμα 3: Τώρα, για τη μεταβλητή Date1, εκχωρήστε "15-01-2018" και για τη μεταβλητή Date2, αντιστοιχίστε "15-01-2019"
Κώδικας:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Βήμα 4: Τώρα, για να αποθηκεύσετε τα αποτελέσματα, ορίστε μια ακόμη μεταβλητή ως Long.
Κώδικας:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Result as Long Date1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Βήμα 5: Τώρα ορίστε την τιμή για αυτήν τη μεταβλητή μέσω της συνάρτησης DATEDIFF στο VBA
Κώδικας:
Sub DateDiff_Example1 () Dim Date1 As Date Dim Date2 As Date Dim Result as Long Date1 = "15-01-2018" Date2 = "15-01-2019" Αποτέλεσμα = DateDiff (End Sub
Βήμα 6: Το πρώτο επιχείρημα είναι τι είδους διαφορά χρειαζόμαστε μεταξύ αυτών των δύο ημερομηνιών. Ας πούμε ότι πρέπει να βρούμε τον αριθμό των ημερών, οπότε δώστε το επιχείρημα ως "D."
Κώδικας:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D", End Sub
Step 7: What is the first date to find the difference. Our first date is “15-01-2018” that we have already assigned to the variable “Date1”. So supply the variable name here.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result =DateDiff("D",Date1, End Sub
Step 8: What is the second date to find the difference. The second date is “15-01-2019,” which holds the value through variable “Date2”.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) End Sub
Step 9: Ignore the last two parameters. Now assign the value of variable “Result” through the VBA message box.
Code:
Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("D", Date1, Date2) MsgBox Result End Sub
Now run the code using the F5 key or manually, we will get the difference between these two dates in a number of days.
So, from “15-01-2018” to 15-01-2019,” the exact difference is one year, so we got 365 days as a result.
Like this, we can find the difference between two dates in time intervals.
Example #2 - To Find Difference in Months
Code:
Sub DateDiff_Example2() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("M", Date1, Date2) MsgBox Result End Sub
Run this code Using the F5 key, or you can run manually to show the result as given below.
Example #3 - To Find Difference in Years
Code:
Sub DateDiff_Example3() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("YYYY", Date1, Date2) MsgBox Result End Sub
Run this code using the F5 key or manually to see the result.
Assignment as a Practice
I hope you have understood the function of VBA DATEDIFF. Take a look at the below homework for you. Find the difference between the below dates in “Months.”
Εάν δεν έχετε βρει τον τρόπο, παρακάτω είναι ο κωδικός έτοιμου για εσάς.
Κώδικας:
Sub Assignment () Dim k As Long For k = 2 to 8 Cells (k, 3). Value = DateDiff ("M", Cells (k, 1), Cells (k, 2)) Next k End Sub
Μπορείτε να εκτελέσετε αυτόν τον κωδικό χειροκίνητα ή να πατήσετε το πλήκτρο F5 για να δείτε το αποτέλεσμα.
