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

Πίνακας περιεχομένων

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

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

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

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

Σύνταξη

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

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

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

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

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

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

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

Παράδειγμα # 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

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