CDATE VBA | Πώς να χρησιμοποιήσετε το CDATE στο Excel VBA; (με παραδείγματα)

Λειτουργία CDATE σε VBA

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

Σύνταξη του CDATE

Ακολουθεί η σύνταξη της συνάρτησης CDATE στο VBA.

Έκφραση: Η έκφραση θα μπορούσε να είναι μια συμβολοσειρά ή τιμή κειμένου ή μια μεταβλητή που περιέχει μια τιμή που θα μετατραπεί στον τύπο δεδομένων ημερομηνίας.

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

Θα δούμε όλο και περισσότερα παραδείγματα στην παρακάτω ενότητα.

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

Παραδείγματα της λειτουργίας CDATE στο excel vba.

Μπορείτε να πραγματοποιήσετε λήψη αυτού του προτύπου VBA CDATE Excel εδώ - Πρότυπο VBA CDATE Excel

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

Πριν σας δείξω το παράδειγμα του CDATE, δείτε πρώτα τον παρακάτω κώδικα.

Κώδικας:

 Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub 

Στα παραπάνω για τη μεταβλητή "k", έχω εκχωρήσει την τιμή ως "25-12". Όταν εκτελώ αυτόν τον κώδικα θα δούμε την ίδια τιμή στο πλαίσιο μηνυμάτων στο VBA.

Αλλά αυτό μπορεί να μετατραπεί μέχρι σήμερα, χρησιμοποιώντας τη λειτουργία VATE CDATE Για αυτό ορίστε μια ακόμη μεταβλητή ως ημερομηνία.

Κώδικας:

 Dim k1 ως ημερομηνία 

Για αυτήν τη μεταβλητή "k1" εκχωρήστε τη συνάρτηση CDATE και παρέχετε τη μεταβλητή "k" που κρατά τη συμβολοσειρά "25-12". Και για το πλαίσιο μηνυμάτων δείξτε τη μεταβλητή τιμή του "k1" αντί του "k".

Κώδικας:

k1 = CDate (k)

Τώρα εκτελέστε τον κωδικό και δείτε το αποτέλεσμα σε ένα πλαίσιο μηνύματος.

Το αποτέλεσμα λοιπόν είναι «25/12/2019».

Κοιτάξτε προσεκτικά την τιμή που έχουμε παράσχει, έχουμε παράσχει "25-12" που δεν έχουμε παράσχει το έτος

Κατά τη σύνταξη αυτού του άρθρου το τρέχον έτος στο σύστημά μου ήταν το 2019, οπότε το VBA CDATE μετέτρεψε την τιμή συμβολοσειράς "25-12" μέχρι σήμερα και πρόσθεσε το έτος συστήματος 2019 σε αυτό. Έτσι, τα τελικά αποτελέσματα έχουν ως εξής 12/25/2019, δηλαδή στις 25 Δεκεμβρίου 2019.

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

Τώρα, δείτε τον παρακάτω κώδικα.

Κώδικας:

 Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub 

Στον παραπάνω κωδικό για τη μεταβλητή "k", έχω εφαρμόσει τον αριθμό "43889". Όλοι γνωρίζουμε ότι αυτός είναι ένας σειριακός αριθμός, αλλά για μια άλλη μεταβλητή "KResult" έχουμε μετατρέψει αυτήν την τιμή μέχρι σήμερα χρησιμοποιώντας τη συνάρτηση "CDATE".

Το ίδιο αποτέλεσμα της μεταβλητής "kResult" εμφανίζεται στο πλαίσιο μηνύματος.

Εκτελέστε τον κωδικό και δείτε τη μαγεία της συνάρτησης "CDATE".

Δείχνει το αποτέλεσμα ως "28/2/2020", εάν δεν είστε εξοικειωμένοι με τις ημερομηνίες στο excel τότε πρέπει να αναρωτιέστε πώς συνέβη αυτό.

Για παράδειγμα, εισαγάγετε τον ίδιο αριθμό (43889) σε ένα από τα κελιά του υπολογιστικού φύλλου.

Για αυτό εφαρμόστε τη μορφή ως "ΗΗ-ΜΜ-ΕΕΕΕ".

Τώρα κάντε κλικ στο Ok και δείτε το αποτέλεσμα.

Τώρα το αποτέλεσμα άλλαξε από σειριακό αριθμό σε ημερομηνία. Επειδή έχουμε εφαρμόσει τη μορφή ημερομηνίας πάνω στον σειριακό αριθμό που έχει δείξει την αντίστοιχη ημερομηνία.

Αυτό σημαίνει ότι ο αύξων αριθμός 43889 είναι ίσος με την ημερομηνία 28-02-2020.

Έτσι στον κώδικα VBA, η συνάρτηση CDATE έχει εκτελέσει το ίδιο πράγμα μετατρέποντας την τιμή συμβολοσειράς σε τύπο δεδομένων ημερομηνίας.

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

Για αυτό το παράδειγμα δείτε τον παρακάτω κώδικα.

 Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24 December 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Value3) End Sub 

Όταν εκτελέσουμε αυτόν τον κώδικα θα λάβουμε τα παρακάτω αποτελέσματα.

Έτσι, όλες οι τιμές μετατρέπονται στον τύπο δεδομένων ημερομηνίας με τη συνάρτηση CDATE.

Πράγματα που πρέπει να θυμάστε

  • Το CDATE μετατρέπει μόνο αριθμούς και τιμές συμβολοσειράς στον τύπο δεδομένων ημερομηνίας.
  • Αυτό είναι χρήσιμο όταν το χρησιμοποιούμε με άλλες λειτουργίες.
  • Εάν παρέχεται λάθος τιμή τύπου δεδομένων, τότε θα λάβουμε λάθος αναντιστοιχία τύπου.
  • Δεδομένου ότι η ημερομηνία και η ώρα αποτελούν μέρος του σειριακού αριθμού μετατρέπει την ώρα καθώς και την κατάλληλη ώρα.