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

Τι είναι η συνάρτηση VBA DateValue;

Η συνάρτηση DateValue είναι μια ενσωματωμένη συνάρτηση στο Excel VBA στην κατηγορία συνάρτησης Ημερομηνία / ώρα. Λειτουργεί τόσο ως συνάρτηση VBA όσο και ως συνάρτηση φύλλου εργασίας στο VBA. Αυτή η συνάρτηση επιστρέφει τον σειριακό αριθμό ή την τιμή της ημερομηνίας που παρέχεται στη μορφή αναπαράστασης συμβολοσειρών αγνοώντας τις πληροφορίες του χρόνου που παρέχονται από τη συμβολοσειρά ημερομηνίας Χρησιμοποιείται με δύο διαφορετικούς τρόπους στο Excel. Αυτή η συνάρτηση χρησιμοποιείται ως τύπος φύλλου εργασίας που εισέρχεται σε ένα κελί φύλλου εργασίας. Χρησιμοποιείται ως κώδικας μακροεντολής στην εφαρμογή VBA, εισάγοντας τον μέσω του Visual Basic Editor που σχετίζεται με το Microsoft Excel.

Σε αυτό το άρθρο, θα μάθουμε παραδείγματα VBA DATEVALUE και πώς να το χρησιμοποιήσουμε με μια σαφή εξήγηση.

Επεξήγηση της συνάρτησης VBA Datevalue

Στο VBA, το DATEVALUE χρησιμοποιεί την ακόλουθη σύνταξη.

Αυτή η συνάρτηση χρησιμοποιεί μόνο το μοναδικό επιχείρημα ή την παράμετρο

• Ημερομηνία : Είναι η ημερομηνία που αναπαρίσταται στη μορφή συμβολοσειράς
• Returns: Αυτή η συνάρτηση επιστρέφει την τιμή της ημερομηνίας που χρησιμοποιείται ως συνάρτηση VBA. Επιστρέφει την τιμή ημερομηνίας όταν χρησιμοποιείται ως συνάρτηση φύλλου εργασίας

Η συνάρτηση VBA DateValue είναι σε θέση να ερμηνεύσει τα δεδομένα που αντιπροσωπεύονται σε μορφή κειμένου που αναφέρεται σε έγκυρη μορφή Excel. Δεν είναι δυνατή η επιστροφή της τιμής ημερομηνίας εάν η συμβολοσειρά περιλάμβανε την αναπαράσταση κειμένου της καθημερινής.

Τα οφέλη της συνάρτησης DateValue VBA είναι η εξαγωγή της ημερομηνίας από τη συμβολοσειρά και η μετατροπή της ημερομηνίας με την ώρα στην μοναδική ημερομηνία. Μπορούμε απλά ότι όταν μια ημερομηνία δίνεται με την ώρα, αυτή η συνάρτηση είναι μόνο τιμή ημερομηνίας αποφεύγοντας την τιμή της ώρας.

Πώς να χρησιμοποιήσετε το Excel VBA DATEVALUE;

Για να χρησιμοποιήσετε τη συνάρτηση DateValue στο Excel, πρέπει πρώτα να ανοίξετε το πρόγραμμα επεξεργασίας VBA.

Το κουμπί εντολής πρέπει να τοποθετηθεί στο φύλλο εργασίας του Excel για να προσθέσετε τις γραμμές του προγράμματος VBA σε αυτό. Για να εφαρμόσει τις γραμμές του προγράμματος, ο χρήστης πρέπει να κάνει κλικ στο κουμπί εντολών στο φύλλο excel. Για να έχετε μια έγκυρη έξοδο από το πρόγραμμα, η έγκυρη εισαγωγή παρέχεται μέσω του ορίσματος. Για παράδειγμα, ο ακόλουθος κώδικας βοηθά στη δημιουργία μιας μακροεντολής για την εκτέλεση της συνάρτησης DateValue για εξαγωγή της τιμής ημερομηνίας από το κείμενο στο VBA.

Πρόγραμμα VBA:

Sub Date Button () Dim myDate As Date myDate = DateValue (“August 15, 1991”) MsgBox Date (myDate) End Sub

Αυτός ο κωδικός έχει ως αποτέλεσμα την ημερομηνία 15 από τη δεδομένη εισαγωγή.

Παραδείγματα του Excel VBA DATEVALUE

Ακολουθούν τα παραδείγματα DateValue στο Excel VBA.

Παράδειγμα # 1 - Λήψη ημέρας, μήνα και έτους από ημερομηνία

Λίγα βήματα ακολουθούνται για τη δημιουργία και την εκτέλεση του προγράμματος στο VBA. Αυτά περιλαμβάνουν

Βήμα 1: Μεταβείτε στην καρτέλα προγραμματιστή, τοποθετήστε τον κέρσορα σε ένα κελί στο φύλλο Excel και κάντε κλικ στην επιλογή «Εισαγωγή» και επιλέξτε «Κουμπί εντολών» στο στοιχείο ActiveX Control, όπως φαίνεται στην εικόνα

Σύρετε το κουμπί όπου θέλετε και δώστε τη λεζάντα ως κουμπί ημερομηνίας από το παράθυρο ιδιοτήτων.

Βήμα 2: Κάντε διπλό κλικ στο κουμπί. Θα ανακατευθύνει στο έργο VBA και θα γράψει τον κωδικό μεταξύ του κουμπιού Private Sub-command και του sub sub.

Ο κωδικός θα πρέπει να αναπτυχθεί όπως παρακάτω για να λάβετε ημερομηνία, μήνα και έτος.

Κώδικας:

Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox Year (Exampledate) MsgBox Month (Exampledate) End Sub

Σε αυτόν τον κώδικα, το Datebutton1_Click () είναι το όνομα και το παράδειγμα ημερομηνίας είναι μεταβλητό με τον τύπο δεδομένων ημερομηνίας και το Msgbox για να εμφανιστεί η έξοδος.

Βήμα 3: Κατά την ανάπτυξη κώδικα, θα εμφανιστούν σφάλματα αναντιστοιχίας τύπου VBA και πρέπει να τα φροντίσετε.

Βήμα 4: Σε αυτό το βήμα, εκτελέστε το πρόγραμμα κάνοντας κλικ στην επιλογή εκτέλεσης.

Εναλλακτικά, μπορούμε να ελέγξουμε ή να εντοπίσουμε τον εντοπισμό σφαλμάτων του προγράμματος, επιλέγοντας το βήμα Into στο μενού εντοπισμού σφαλμάτων. Εάν ο κωδικός μας είναι χωρίς σφάλματα, εμφανίζει την έξοδο.

Βήμα 5 : Όταν το πρόγραμμα εκτελείται, εμφανίζει πρώτα το πλαίσιο μηνύματος με την ημερομηνία που αναφέρεται στην εισαγωγή κειμένου. Στη συνέχεια, κάντε κλικ στο OK για να δείτε ξανά την τιμή του έτους, κάντε κλικ στο OK στο πλαίσιο μηνύματος για να δείτε την τιμή του μήνα.

Σημείωση: Αυτά τα βήματα πρέπει να ακολουθούνται σαφώς για να έχουν ακριβή αποτελέσματα.

Παράδειγμα # 2 - Χρήση του τμήματος Date για λήψη των διαφόρων μερών της ημερομηνίας

Βήμα 1: Μεταβείτε στην καρτέλα προγραμματιστή του Excel, τοποθετήστε το δρομέα σε ένα κελί στο φύλλο Excel και κάντε κλικ στην επιλογή «Εισαγωγή» και επιλέξτε «Κουμπί εντολών» στο στοιχείο ActiveX Control, όπως φαίνεται στην εικόνα.

Βήμα 2: Σύρετε το κουμπί και δώστε τον υπότιτλο ως DatePart στις ιδιότητες.

Κάντε διπλό κλικ σε αυτό το κουμπί. Κατευθύνεται στο φύλλο επεξεργασίας της Visual Basic και εμφανίζεται ως εξής.

Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.

Code:

Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub

In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.

Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.

The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.

Things to Remember About the VBA DATEVALUE

The following things must be remembered while using the DateValue function in Excel VBA

• Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
• When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
• We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
• Όταν το DatePart χρησιμοποιείται για τη λήψη των τιμών, πρέπει να ακολουθηθεί η κατάλληλη μορφή. Διαφορετικά, οδηγεί «σφάλμα χρόνου εκτέλεσης 5» με μη έγκυρη διαδικασία κλήση ή επιχείρημα.