Ημερομηνία προσθήκης VBA | Προσθήκη & αφαίρεση ημερομηνιών χρησιμοποιώντας τη συνάρτηση Dateadd

Συνάρτηση Excel VBA DateAdd

Η συνάρτηση DateAdd κατηγοριοποιείται στη συνάρτηση ημερομηνίας και ώρας στο VBA και αυτή η συνάρτηση έχει μια τιμή εξόδου ως ημερομηνία, παίρνει την είσοδο ως μορφή ημερομηνίας και την προσθέτει στην τρέχουσα ημερομηνία για να επιστρέψει μια νέα ημερομηνία, η σύνταξη αυτής της συνάρτησης παίρνει διάστημα τριών ορισμάτων, ο αριθμός και η ημερομηνία.

Χρησιμοποιώντας τη συνάρτηση DateAdd μπορούμε να προσθέσουμε και να αφαιρέσουμε ημέρες, μήνες και χρόνια από τη δεδομένη ημερομηνία. Η ημερομηνία στο excel είναι αναπόσπαστο μέρος της καθημερινής μας εργασίας, δεν μπορούμε να εργαστούμε στο excel χωρίς ημερομηνία, ώρα και άλλα σημαντικά πράγματα. Η προσθήκη μιας ημερομηνίας σε μια άλλη ημερομηνία, η αφαίρεση μιας ημερομηνίας από μια άλλη είναι η κοινή διαδικασία. Στο κανονικό φύλλο εργασίας, κάνουμε απλώς αριθμητικές πράξεις και παίρνουμε το αποτέλεσμα. Στο VBA έχουμε τη λειτουργία που ονομάζεται DateAdd, η οποία θα κάνει τη δουλειά.

Σύνταξη

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

Ακολουθεί μια λίστα κωδικών και περιγραφών.

  • Αριθμός: Ο αριθμός των μηνών, ημερών ή εβδομάδας (όπως προβλέπεται στο διάστημα) που θέλουμε να προσθέσουμε ή να αφαιρέσουμε την ημερομηνία.
  • Ημερομηνία: Η πραγματική τιμή ημερομηνίας κάνουμε την αριθμητική λειτουργία.

Για παράδειγμα, εάν έχετε την ημερομηνία "14-Μαρ-2019" και θέλετε να προσθέσετε 2 ημέρες στην ημερομηνία, χρησιμοποιήστε τον παρακάτω κωδικό:

DateAdd ("d", 2, "14-03-2019")

Το αποτέλεσμα του παραπάνω κώδικα είναι: 16-03-2019

Πώς να χρησιμοποιήσετε τη συνάρτηση Dateadd στο VBA;

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA DateAdd Excel εδώ - Πρότυπο VBA DateAdd Excel

Παράδειγμα # 1 - Προσθήκη ημερομηνίας

Για να ξεκινήσετε τη διαδικασία, εφαρμόστε απλή συνάρτηση DateAdd. Ας υποθέσουμε ότι εργάζεστε με την ημερομηνία "14-03-2019".

Βήμα 1: Ξεκινήστε την υποδιαδικασία δημιουργώντας ένα όνομα μακροεντολής.

Βήμα 2: Ορίστε τη μεταβλητή ως ημερομηνία.

Κώδικας:

 Sub DateAdd_Example1 () Dim μήνα ως ημερομηνία λήξης Sub 

Βήμα 3: Για αυτήν τη μεταβλητή τιμή εκχώρησης.

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub 

Βήμα 4: Ξεκινήστε τον τύπο DateAdd .

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub 

Βήμα 5: Ποια είναι η λειτουργία που θέλουμε να κάνουμε. Θέλουμε μια μέρα μέχρι την ημερομηνία. Έτσι, το διάστημα είναι " d ".

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", End Sub 

Βήμα 6: Πόσες ημέρες πρέπει να προσθέσουμε, πρέπει να προσθέσω 5 ημέρες.

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub 

Βήμα 7: Η ημερομηνία μας είναι " 14-03-2019 "

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub 

Βήμα 8: Εμφάνιση του αποτελέσματος της μεταβλητής στο πλαίσιο μηνυμάτων VBA.

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub 

Αν εκτελέσω αυτόν τον κωδικό, πρέπει να λάβω την ημερομηνία 19-03-2019.

Στη μορφή ημερομηνίας συστήματος είναι "mm-dd-yyyy", επομένως το αποτέλεσμα εμφανίζεται σύμφωνα με τις ρυθμίσεις ημερομηνίας συστήματος.

Ωστόσο, μπορούμε να το τροποποιήσουμε εφαρμόζοντας τη συνάρτηση VBA FORMAT.

Κώδικας:

 Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Τώρα το αποτέλεσμα θα έπρεπε να είναι έτσι " 19-Μαρ-2019 ".

Παράδειγμα # 2 - Προσθήκη μηνών

Για να προσθέσετε μήνες παρακάτω είναι ο κωδικός

Κώδικας:

 Sub DateAdd_Example2 () 'Για να προσθέσετε μήνες Dim NewDate ως ημερομηνία NewDate = DateAdd ("m", 5, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Το αποτέλεσμα θα είναι:

Παράδειγμα # 3 - Προσθήκη ετών

Για να προσθέσετε χρόνια χρησιμοποιώντας το DateAdd χρησιμοποιήστε τον παρακάτω κωδικό.

Κώδικας:

 Sub DateAdd_Example2 () 'Για να προσθέσετε έτος Dim NewDate As Date NewDate = DateAdd ("yyyy", 5, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Το αποτέλεσμα θα είναι:

Παράδειγμα # 4 - Προσθήκη τριμήνου

Για να προσθέσετε το τέταρτο παρακάτω είναι ο κωδικός

Κώδικας:

 Sub DateAdd_Example2 () 'Για να προσθέσετε τρίμηνο Dim NewDate As Date NewDate = DateAdd ("Q", 5, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Το αποτέλεσμα θα είναι:

Παράδειγμα # 5 - Προσθήκη εβδομάδας

Για να προσθέσετε τις καθημερινές παρακάτω είναι ο κωδικός

Κώδικας:

 Sub DateAdd_Example2 () 'Για να προσθέσετε τις καθημερινές Dim NewDate As Date NewDate = DateAdd ("W", 5, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Το αποτέλεσμα θα είναι:

Παράδειγμα # 6 - Προσθήκη εβδομάδας

Για να προσθέσετε την παρακάτω εβδομάδα είναι ο κωδικός

Κώδικας:

 Sub DateAdd_Example2 () 'Για προσθήκη εβδομάδας Dim NewDate ως ημερομηνία NewDate = DateAdd ("WW", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub 

Το αποτέλεσμα θα είναι:

Παράδειγμα # 7 - Προσθήκη ώρας

Για να προσθέσετε ώρα παρακάτω είναι ο κωδικός

Κώδικας:

 Sub DateAdd_Example2 () 'Για να προσθέσετε ώρα Dim NewDate As Date NewDate = DateAdd ("h", 5, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy hh: mm: ss") End Sub 

Το αποτέλεσμα θα είναι

Παράδειγμα # 8 - Ημερομηνία αφαίρεσης

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

Για να αφαιρέσετε 3 μήνες από την παρεχόμενη ημερομηνία παρακάτω είναι ο κωδικός.

Κώδικας:

 Sub DateAdd_Example3 () 'Για να προσθέσετε ώρα Dim NewDate ως ημερομηνία NewDate = DateAdd ("m", -3, "14-03-2019") Μορφή MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Το αποτέλεσμα αυτού του κώδικα είναι:

Εάν αφαιρεθεί 3 μήνες από την ημερομηνία 14 Μαρτίου 2019 θα επιστρέψει στο προηγούμενο έτος