VBA Σήμερα | Πώς να χρησιμοποιήσετε τη συνάρτηση ημερομηνίας στο VBA για να βρείτε τη σημερινή ημερομηνία;

Λειτουργία VBA Today

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

Στο Excel έχουμε πολλές χρήσιμες λειτουργίες που μπορούν να μας βοηθήσουν σε καθημερινή βάση. Το Excel έκανε όλη μας τη ζωή εύκολη στο χώρο εργασίας. Όταν λέω «καθημερινά» το excel έχει τον τύπο να επιστρέψει τη σημερινή ημερομηνία, όχι μόνο την ημερομηνία, μπορούμε επίσης να πάρουμε μαζί την τρέχουσα ημερομηνία και ώρα. Αυτή είναι η ποικιλία των τύπων excel. Εάν είστε τακτικός χρήστης του excel, ελπίζω να έχετε βρει τον τύπο που ονομάζεται "ΣΗΜΕΡΑ" στο excel για να εισαγάγετε την τρέχουσα ημερομηνία όπως εμφανίζεται στον υπολογιστή που εργάζεστε. Αλλά δεν έχουμε συνάρτηση ΣΗΜΕΡΑ στο VBA, τότε πώς παίρνουμε την ημερομηνία ΣΗΜΕΡΑ από το VBA. Αυτό το άρθρο θα σας δείξει πώς να εργαστείτε με την ΣΗΜΕΡΑ ημερομηνία στο VBA. Συνέχισε να διαβάζεις.

Ποια είναι η φόρμουλα για να λάβετε τη σημερινή ημερομηνία στο VBA;

Εάν δεν υπάρχει τύπος που ονομάζεται ΣΗΜΕΡΑ, τότε πώς λαμβάνουμε τη σημερινή ημερομηνία από το VBA; Αυτή είναι η κοινή ερώτηση που όλοι ρωτούν, αλλά η λύση είναι απλή έχουμε έναν τύπο με διαφορετικό όνομα, δηλαδή τη συνάρτηση DATE.

Ποια είναι η λειτουργία ημερομηνίας στο VBA;

Η ΗΜΕΡΟΜΗΝΙΑ είναι ακριβώς η ίδια με τη συνάρτηση VBA TODAY, αλλά αυτή δεν είναι πτητική, εκτός αν εκτελέσετε τη μακροεντολή ή ενεργοποιήσετε τη μακροεντολή.

Η σύνταξη της συνάρτησης DATE δεν έχει ορίσματα, απλώς πρέπει να περάσουμε τη συνάρτηση DATE.

ΗΜΕΡΟΜΗΝΙΑ ()

Παραδείγματα συνάρτησης ημερομηνίας στο VBA

Συνάρτηση DATE για να επιστρέψετε την τρέχουσα ημερομηνία του συστήματος. Αυτό είναι πολύ χρήσιμο όταν το χρησιμοποιούμε ως μέρος του μεγάλου έργου VBA. Για να έχουμε μια δίκαιη γνώση σχετικά με αυτό πρώτα θα σας δείξω απλά παραδείγματα της συνάρτησης DATE

Παράδειγμα # 1

Ας δημιουργήσουμε μια απλή συνάρτηση DATE για να δείξουμε την τρέχουσα ημερομηνία στο πλαίσιο μηνύματος. Ακολουθήστε τα παρακάτω βήματα για να γράψετε τη μακροεντολή excel.

Βήμα 1: Δημιουργήστε μια υποδιαδικασία ονομάζοντας τη μακροεντολή.

Βήμα 2: Δηλώστε τη μεταβλητή ως "Ημερομηνία". Η συνάρτηση DATE επιστρέφει το αποτέλεσμα μόνο ως ημερομηνία, επομένως ο μεταβλητός τύπος δεδομένων πρέπει να είναι "Ημερομηνία".

Κώδικας:

 Sub Today_Example1 () Dim K As String End Sub 

Βήμα 3: Αντιστοιχίστε την τιμή στη μεταβλητή "k" ως συνάρτηση DATE .

Κώδικας:

 Sub Today_Example1 () Dim K As String K = Ημερομηνία λήξης Υπο 

Βήμα 4: Τώρα η τιμή της μεταβλητής "k" στο πλαίσιο μηνυμάτων στο VBA .

Κώδικας:

 Sub Today_Example1 () Dim K As String K = Date MagBox K End Sub 

Εκτελέστε τον κωδικό που θα πρέπει να βλέπουμε την τρέχουσα ημερομηνία όπως φαίνεται στο σύστημα.

Σημείωση: Η μορφή ημερομηνίας ενδέχεται να διαφέρει ανάλογα με τις ρυθμίσεις του συστήματος. Θα μπορούσε να είναι σε "mm-dd-yy", "dd-mm-yy".

Η συνάρτηση Date to find the Due is Today

Η συνάρτηση ημερομηνίας είναι πιο χρήσιμη στο πλαίσιο της εύρεσης των προθεσμιών EMI, πληρωμής μέσω πιστωτικής κάρτας, ασφαλιστικών πληρωμών κ.λπ.…

Ας υποθέσουμε ότι εργάζεστε ως υπάλληλος ανάκτησης δανείου και έχετε μια λίστα πελατών με το οφειλόμενο ποσό και την προθεσμία.

Στη στήλη κατάστασης, χρειάζεστε το αποτέλεσμα ως "Η ημερομηνία λήξης είναι σήμερα" εάν η ημερομηνία λήξης είναι ίση με την τρέχουσα ημερομηνία συστήματος.

Αυτό μπορεί να γίνει χρησιμοποιώντας τη συνθήκη IF και βρόχους στο VBA. Παρακάτω είναι ο κωδικός ετοιμότητας για να φτάσετε στα αποτελέσματα.

Κώδικας:

 Sub Today_Example2 () Dim K As Integer For K = 2 to 11 If Cells (K, 3). Value = Date Then Cells (K, 4). Value = "Due Due on Today" Else Cells (K, 4). Τιμή = "Όχι Σήμερα" Λήξη Αν Επόμενο Κ 

Αυτό θα φτάσει στα αποτελέσματα στη στήλη κατάστασης.

Όπως σε πολλά σενάρια, μπορούμε να χρησιμοποιήσουμε τη συνάρτηση DATE για να ελέγξουμε τις ημερομηνίες και να κάνουμε κάποια ενέργεια.

Μπορείτε να κατεβάσετε αυτήν τη λειτουργία VBA Today εδώ. Πρότυπο Excel λειτουργίας VBA Today