/ / / Ημερομηνία και ώρα VBA του Excel

Ημερομηνία και ώρα VBA του Excel

Έτος, Μήνας, Ημέρα μιας Ημερομηνίας | Ημερομηνία προσθήκης | Τρέχουσα ημερομηνία και ώρα | Ώρα, λεπτά, δευτερόλεπτο | TimeValue

Μάθετε πώς να συνεργάζεστε ημερομηνίες και ώρες σε Excel VBA.

Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις παρακάτω γραμμές κώδικα. Για να εκτελέσετε τις γραμμές κώδικα, κάντε κλικ στο κουμπί εντολών στο φύλλο.

Έτος, Μήνας, Ημέρα μιας Ημερομηνίας

Η ακόλουθη μακροεντολή παίρνει το έτος μιας ημερομηνίας. Για να δηλώσετε μια ημερομηνία, χρησιμοποιήστε τη δήλωση Dim. Για να προετοιμάσετε μια ημερομηνία, χρησιμοποιήστε τη συνάρτηση DateValue.

Κώδικας:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Αποτέλεσμα:

Έτος μιας ημερομηνίας στο Excel VBA

Σημείωση: Χρησιμοποιήστε το μήνα και την ημέρα για να λάβετε τον μήνα και την ημερομηνία μιας ημερομηνίας.

Ημερομηνία προσθήκης

Για να προσθέσετε έναν αριθμό ημερών σε μια ημερομηνία, χρησιμοποιήστε τοDateAdd λειτουργία. Η συνάρτηση DateAdd έχει τρία επιχειρήματα. Συμπληρώστε το "d" για το πρώτο παράθυρο για να προσθέσετε ημέρες. Συμπληρώστε 3 για το δεύτερο επιχείρημα για να προσθέσετε 3 ημέρες. Το τρίτο επιχείρημα αντιπροσωπεύει την ημερομηνία προσθήκης του αριθμού των ημερών.

Κώδικας:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

Αποτέλεσμα:

Ημερομηνία προσθήκης

Σημείωση: Αλλάξτε "d" σε "m" για να προσθέσετε έναν αριθμό μηνών σε μια ημερομηνία. Τοποθετήστε το δείκτη του ποντικιού σας στο DateAdd στον επεξεργαστή της Visual Basic και κάντε κλικ στο F1 για βοήθεια στους άλλους προσδιοριστές διαστήματος. Οι ημερομηνίες είναι σε μορφή US. Πρώτα μήνες, ημέρες δευτερόλεπτα. Αυτός ο τύπος μορφής εξαρτάται από τις περιφερειακές ρυθμίσεις των παραθύρων σας.

Τρέχουσα ημερομηνία και ώρα

Για να δείτε την τρέχουσα ημερομηνία και ώρα, χρησιμοποιήστε τη λειτουργία Τώρα.

Κώδικας:

MsgBox Now

Αποτέλεσμα:

Τρέχουσα ημερομηνία και ώρα

Ώρα, λεπτά, δευτερόλεπτο

Παίρνετε την ώρα μιας ώρας, χρησιμοποιήστε τη λειτουργία ώρας.

Κώδικας:

MsgBox Hour(Now)

Αποτέλεσμα:

Ώρα της τρέχουσας ώρας

Σημείωση: Χρησιμοποιήστε το λεπτό και το δευτερόλεπτο για να πάρετε το λεπτό και το δευτερόλεπτο κάθε φορά.

TimeValue

Η συνάρτηση TimeValue μετατρέπει μια συμβολοσειρά σε ένα σειριακό αριθμό χρόνου. Ο αύξων αριθμός του χρόνου είναι ένας αριθμός μεταξύ 0 και 1. Για παράδειγμα, το μεσημέρι (κατά το ήμισυ της ημέρας) αντιπροσωπεύεται ως 0,5.

Κώδικας:

MsgBox TimeValue("9:20:01 am")

Αποτέλεσμα:

TimeValue

Τώρα, για να δείτε καθαρά ότι το Excel διαχειρίζεται εσωτερικά τους χρόνους ως αριθμούς μεταξύ 0 και 1, προσθέστε τις ακόλουθες γραμμές κώδικα:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

Αποτέλεσμα:

Χρονικός αριθμός σειράς

Επίσης διαβάστε: