Λειτουργία VBA DatePart | Πώς να επιστρέψετε το καθορισμένο μέρος της ημερομηνίας;

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

Το DatePart στο VBA χρησιμοποιείται για τον προσδιορισμό του μέρους της ημερομηνίας για τη δεδομένη ημερομηνία που παρέχεται ως όρισμα, το μέρος ημερομηνίας μπορεί να είναι ημέρες ή μήνες ή έτος ή ακόμη και τα λεπτά και δευτερόλεπτα της ώρας, η σύνταξη αυτής της συνάρτησης αποσαφηνίζεται πολύ και έχει ως εξής, Datepart (Interval, Date as Argument).

Σύνταξη

Η σύνταξη της συνάρτησης DatePart δίνεται παρακάτω:

  • Διάστημα: Τα δεδομένα που πρέπει να διαβιβαστούν σε ένα όρισμα διαστήματος είναι τύπου συμβολοσειράς που σημαίνει ότι αυτό το όρισμα μπορεί να περιέχει έγκυρες τιμές σε αυτό. Το διάστημα μπορεί να είναι έτος, μήνας, τρίμηνο, ημέρα, εβδομάδα, ώρα, λεπτό, δευτερόλεπτο.
  • Ημερομηνία: Η τιμή ημερομηνίας που πρέπει να αξιολογηθεί.
  • firstdayofweek: Αυτή είναι μια προαιρετική παράμετρος. Αυτό περιγράφει την πρώτη ημέρα της εβδομάδας, αυτό μπορεί ακόμη και να αγνοηθεί. Εάν αγνοηθεί αυτή η παράμετρος, αυτό γίνεται αυτόματα την Κυριακή ως την πρώτη ημέρα της εβδομάδας. Εάν θέλετε να το αλλάξετε, τότε αυτή η παράμετρος μπορεί να χρησιμοποιηθεί. Αυτό το όρισμα μπορεί να αποτελείται από vbUseSystem 0.

Χρησιμοποιήστε τη ρύθμιση API NLS

vbSunday (Default), vbMonday, vbTuesday, vbWednesday, vb Πέμπτη vbFriday, vbSaturday.
  • firstweekofyear: Ομοίως, η κορυφαία παράμετρος, αυτή είναι επίσης μια προαιρετική παράμετρος. Αυτό περιγράφει την πρώτη εβδομάδα του έτους. Αυτή η παράμετρος μπορεί επίσης να αγνοηθεί. Εάν αγνοηθεί αυτή η παράμετρος, υποτίθεται ότι η 1η Ιανουαρίου ως η πρώτη εβδομάδα του έτους. Εάν θέλετε να το αλλάξετε, τότε αυτή η παράμετρος μπορεί να χρησιμοποιηθεί.

    Αυτό το όρισμα μπορεί να αποτελείται από τις ακόλουθες τιμές.

    vbUseSystem, vbFirstJan1, vbFirstFourDays, vbFirstFullWeek.

Αφού δώσετε όλες τις παραμέτρους, το Datepart () θα επιστρέψει την αριθμητική τιμή όπως ολόκληρη την ημερομηνία ή το έτος ή τον μήνα ή το τρίμηνο, κ.λπ.

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

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA DatePart Excel εδώ - Πρότυπο VBA DatePart Excel

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

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

Για να το επιτύχουμε αυτό πρέπει να γράψουμε κάποιον κώδικα στη Visual Basic, για αυτό το Goto Developer Tab και στη συνέχεια κάντε κλικ στη Visual Basic και στη συνέχεια θα ανοίξει ένα παράθυρο.

Σε αυτό το παράθυρο γράψτε τον κωδικό όπως φαίνεται παρακάτω.

Κώδικας:

 Sub date_Datepart () Dim mydate As Variant mydate = # 12/25/2019 # MsgBox mydate MsgBox DatePart ("q", mydate) "εμφανίζει το τέταρτο 

Σε αυτό το παράδειγμα, χρησιμοποιήσαμε τη συνάρτηση Datepart για να εμφανίσουμε την ημερομηνία και ένα μέρος της ημερομηνίας που είναι το τέταρτο της ημερομηνίας. Αυτό εμφανίζει ποιο τρίμηνο του έτους είναι η ημερομηνία έναρξης.

Εάν διορθώσουμε τον κώδικα, η ημερομηνία θα εμφανίζεται ως πλήρης ημερομηνία την πρώτη φορά που ο κωδικός εκτελεί το "Msgbox mydate" επειδή η τυχαία ημερομηνία έχει αντιστοιχιστεί στη μεταβλητή "mydate".

Στη συνέχεια, προβάλλουμε ποιο τρίμηνο του έτους βρίσκεται η ημερομηνία.

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

Ομοίως, μπορεί να εμφανιστεί επίσης το τρίμηνο, μόνο ημερομηνία ή μήνας ή έτος.

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

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

Κώδικας:

Sub date1_datePart () Dim TodayDate As Date 'Δηλώστε μεταβλητές. Dim Msg TodayDate = InputBox ("Enter a date:") Msg = "Quarter:" & DatePart ("q", TodayDate) MsgBox Msg End Sub

Εδώ σε αυτό το παράδειγμα, προσπαθούμε να λάβουμε την ημερομηνία με μη αυτόματο τρόπο στην ώρα εκτέλεσης. Ο κωδικός “TodayDate = InputBox (“ Enter a date: ”)” αυτή η γραμμή υποδεικνύει ότι η ημερομηνία μπορεί να εισαχθεί χειροκίνητα,

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

Καθώς ο μήνας του Ιουνίου βρίσκεται στο 2ο τρίμηνο, εμφανίζεται το 2ο τρίμηνο όπως φαίνεται στο παραπάνω στιγμιότυπο οθόνης.

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

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

Κώδικας:

 Private Sub Workbook_Open () Dim DummyDate As Date DummyDate = ActiveSheet.Cells (2, 2) ActiveSheet.Cells (2, 2). Value = Day (DummyDate) ActiveSheet.Cells (3, 2). Value = Hour (DummyDate) ActiveSheet .Cells (4, 2). Value = Minute (DummyDate) ActiveSheet. Cells (5, 2). Value = Month (DummyDate) ActiveSheet. Cells (6, 2). Value = Weekday (DummyDate) End Sub 

Οι ημερομηνίες συμπληρώνονται στα κελιά στο φύλλο excel, για αυτό ο κώδικας γράφεται ως Active Sheet.cells. Με αυτόν τον κωδικό η ημερομηνία που υπάρχει μπορεί να είναι μήνας έτους ή ημερομηνία μπορεί να εισαχθεί στα δεδομένα κελιά.

Για παράδειγμα, στο παραπάνω στιγμιότυπο οθόνης,

Η ημέρα πρέπει να εισαχθεί στα κελιά (2, 2) του φύλλου excel. Εξ ου και ο κωδικός γράφεται ως "ActiveSheet.Cells (2, 2). Value = Day (DummyDate)".

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

Από προεπιλογή λαμβάνει σήμερα ημερομηνία και εμφανίζεται ως 30 σε (2,6) κελί.

Ομοίως για όλα τα άλλα δεδομένα μπορεί επίσης να συμπληρωθεί.

Χρήση της συνάρτησης DatePart

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

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

  • Αυτή η λειτουργία μπορεί να χρησιμοποιηθεί μόνο ως συνάρτηση VBA. Στο κανονικό excel, αυτό δεν μπορεί να χρησιμοποιηθεί.
  • Οι ημερομηνίες που δίνονται ως τιμή σε αυτήν τη συνάρτηση μπορούν να δοθούν σε οποιαδήποτε μορφή, όπως η μορφή mm-dd-yyyy ή η μορφή DD-MM-YYYY κλπ
  • Αυτή η συνάρτηση θα διαχωρίσει όλες τις τιμές ξεχωριστά, όπως ημερομηνία, μήνας, έτος ή ώρα, επίσης μια ώρα, λεπτό, δευτερόλεπτα επίσης.
  • Αυτό οργανώνεται κάτω από τις συναρτήσεις ημερομηνίας και ώρας στο VBA του Microsoft Excel.

$config[zx-auto] not found$config[zx-overlay] not found