Λειτουργίες ημερομηνίας VBA

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

Λειτουργία ημερομηνίας VBA

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση ημερομηνίας για να επιστρέψετε την τρέχουσα ημερομηνία.

Η σύνταξη της συνάρτησης ημερομηνίας είναι Ημερομηνία (). Δεν έχει επιχειρήματα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση ημερομηνίας:

12345678

Sub UsingTheDateFunction ()Χαμηλώστε την Ημερομηνία ως ΗμερομηνίαtheDate = Ημερομηνία ()Debug. Εκτυπώστε την ΗμερομηνίαΤέλος υπο

Το αποτέλεσμα είναι:

VBA Now Function

Μπορείτε να χρησιμοποιήσετε τη λειτουργία τώρα για να επιστρέψετε την τρέχουσα ημερομηνία και ώρα.

Η σύνταξη της συνάρτησης Now είναι Now (). Δεν έχει επιχειρήματα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση Now:

12345678

Sub UsingTheNowFunction ()Χαμηλώστε την Ημερομηνία ως ΗμερομηνίαtheDate = Τώρα ()Debug. Εκτυπώστε την ΗμερομηνίαΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία χρόνου VBA

Μπορείτε να χρησιμοποιήσετε τη λειτουργία χρόνου για να επιστρέψετε την τρέχουσα ώρα.

Η σύνταξη της συνάρτησης Time είναι Time (). Δεν έχει επιχειρήματα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση χρόνου:

12345678

Sub UsingTheTimeFunction ()Χαμηλώστε την ώρα ως ημερομηνίαtheTime = Timeρα ()Debug. Εκτυπώστε την ώραΤέλος υπο

Το αποτέλεσμα είναι:

Συνάρτηση VBA DateAdd

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση DateAdd για να προσθέσετε ένα διάστημα ημερομηνίας/ώρας σε μια ημερομηνία ή ώρα και η συνάρτηση θα επιστρέψει την ημερομηνία/ώρα που προκύπτει.

Η σύνταξη της συνάρτησης DateAdd είναι:

DateAdd (διάστημα, αριθμός, ημερομηνία) όπου:

• Interval - Μια συμβολοσειρά που καθορίζει τον τύπο του διαστήματος που θα χρησιμοποιηθεί. Το διάστημα μπορεί να είναι μία από τις ακόλουθες τιμές:

"D" - ημέρα
"Ww" - εβδομάδα
"W" - καθημερινή
"M" - μήνας
"Q" - τέταρτο
"Εεεε" - έτος
"Y" - ημέρα του έτους
"H" - ώρα
"N" - λεπτό
"S" - δεύτερο

• Αριθμός - Ο αριθμός των διαστημάτων που θέλετε να προσθέσετε στην αρχική ημερομηνία/ώρα.
• Ημερομηνία - Η αρχική ημερομηνία/ώρα.

Σημείωση: Όταν χρησιμοποιείτε ημερομηνίες στον κωδικό σας, πρέπει να τις περιβάλλετε με # ή εισαγωγικά.

Ο ακόλουθος κώδικας δείχνει τον τρόπο χρήσης της συνάρτησης DateAdd:

123456789

Sub UsingTheDateAddFunction ()Dim laterDate As DatelaterDate = DateAdd ("m", 10, "11/12/2019")Debug.Print laterDateΤέλος υπο

Το αποτέλεσμα είναι:

Συνάρτηση VBA DateDiff

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση DateDiff για να λάβετε τη διαφορά μεταξύ δύο ημερομηνιών, με βάση ένα καθορισμένο χρονικό διάστημα.

Η σύνταξη της συνάρτησης DateDiff είναι:

DateDiff (Interval, Date1, Date2, [Firstdayofweek], [Firstweekofyear]) όπου:

• Interval - Μια συμβολοσειρά που καθορίζει τον τύπο του διαστήματος που θα χρησιμοποιηθεί. Το διάστημα μπορεί να είναι μία από τις ακόλουθες τιμές:

"D" - ημέρα
"Ww" - εβδομάδα
"W" - καθημερινή
"M" - μήνας
"Q" - τέταρτο
"Εεεε" - έτος
"Y" - ημέρα του έτους
"H" - ώρα
"N" - λεπτό
"S" - δεύτερο

• Ημερομηνία 1 - Μια τιμή ημερομηνίας που αντιπροσωπεύει την προηγούμενη ημερομηνία.
• Ημερομηνία 2 - Μια τιμή ημερομηνίας που αντιπροσωπεύει την μεταγενέστερη ημερομηνία.
• Firstdayofweek (Προαιρετικός) - Μια σταθερά που καθορίζει την ημέρα της εβδομάδας που θα πρέπει να χρησιμοποιεί η συνάρτηση ως την πρώτη ημέρα της εβδομάδας. Εάν η κενή Κυριακή χρησιμοποιείται ως η πρώτη ημέρα της εβδομάδας. Το Firstdayofweek μπορεί να είναι μία από τις ακόλουθες τιμές:

-vbSunday - χρησιμοποιεί την Κυριακή ως την πρώτη ημέρα της εβδομάδας.
-vbMonday - χρησιμοποιεί τη Δευτέρα ως την πρώτη ημέρα της εβδομάδας.
-vbT Tuesday - χρησιμοποιεί την Τρίτη ως την πρώτη ημέρα της εβδομάδας.
-vbWed Wednesday - χρησιμοποιεί την Τετάρτη ως την πρώτη ημέρα της εβδομάδας.
-vbThursday - χρησιμοποιεί την Πέμπτη ως την πρώτη ημέρα της εβδομάδας.
-vbFriday - χρησιμοποιεί την Παρασκευή ως την πρώτη ημέρα της εβδομάδας.
-vbΣάββατο - χρησιμοποιεί το Σάββατο ως την πρώτη ημέρα της εβδομάδας.
-vbUseSystemDayOfTheWeek - χρησιμοποιεί την πρώτη ημέρα της εβδομάδας που καθορίζεται από τις ρυθμίσεις του συστήματός σας.

• Πρώτη εβδομάδα εβδομάδας (Προαιρετικός) - Μια σταθερά που καθορίζει την πρώτη εβδομάδα του έτους. Εάν είναι κενό, τότε η 1η Ιανουαρίου εβδομάδα χρησιμοποιείται ως η πρώτη εβδομάδα του έτους. Το Firstweekofyear μπορεί να είναι μία από τις ακόλουθες τιμές:

-vbFirstJan1 - χρησιμοποιεί την εβδομάδα που περιέχει την 1η Ιανουαρίου.
-vbFirstFourDays - χρησιμοποιεί την πρώτη εβδομάδα που περιέχει τουλάχιστον τέσσερις ημέρες το νέο έτος.
-vbFirstFullWeek - χρησιμοποιεί την πρώτη πλήρη εβδομάδα του έτους.
-vbSystem - χρησιμοποιεί την πρώτη εβδομάδα του έτους όπως καθορίζεται από τις ρυθμίσεις του συστήματός σας.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση DateDiff:

123456789

Sub UsingTheDateDiffFunction ()Χαμηλώστε το TheDifferenceBetweenTwoDates As LongtheDifferenceBetweenTwoDates = DateDiff ("q", "11/11/2010", "10/12/2012")Debug.Print theDifferenceBetweenTwoDatesΤέλος υπο

Το αποτέλεσμα είναι:

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

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση DatePart για να επιστρέψετε ένα μέρος (ημέρα, εβδομάδα, τρίμηνο, μήνα κ.λπ.) μιας δεδομένης ημερομηνίας.

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

DatePart (Interval, Date, [Firstdayofweek], [Firstweekofyear]) όπου:

• Interval - Μια συμβολοσειρά που καθορίζει το μέρος της ημερομηνίας για επιστροφή. Το διάστημα μπορεί να είναι μία από τις ακόλουθες τιμές:

"D" - ημέρα
"Ww" - εβδομάδα
"W" - καθημερινή
"M" - μήνας
"Q" - τέταρτο
"Εεεε" - έτος
"Y" - ημέρα του έτους
"H" - ώρα
"N" - λεπτό
"S" - δεύτερο

• Ημερομηνία - Η ημερομηνία στην οποία θέλετε να επιστρέψει ένα μέρος της συνάρτησης.
• Firstdayofweek (Προαιρετικός) - Μια σταθερά που καθορίζει την ημέρα της εβδομάδας που θα πρέπει να χρησιμοποιεί η συνάρτηση ως την πρώτη ημέρα της εβδομάδας. Εάν η κενή Κυριακή χρησιμοποιείται ως η πρώτη ημέρα της εβδομάδας. Το Firstdayofweek μπορεί να είναι μία από τις ακόλουθες τιμές:

-vbSunday - χρησιμοποιεί την Κυριακή ως την πρώτη ημέρα της εβδομάδας.
-vbMonday - χρησιμοποιεί τη Δευτέρα ως την πρώτη ημέρα της εβδομάδας.
-vbT Tuesday - χρησιμοποιεί την Τρίτη ως την πρώτη ημέρα της εβδομάδας.
-vbWed Wednesday - χρησιμοποιεί την Τετάρτη ως την πρώτη ημέρα της εβδομάδας.
-vbThursday - χρησιμοποιεί την Πέμπτη ως την πρώτη ημέρα της εβδομάδας.
-vbFriday - χρησιμοποιεί την Παρασκευή ως την πρώτη ημέρα της εβδομάδας.
-vbΣάββατο - χρησιμοποιεί το Σάββατο ως την πρώτη ημέρα της εβδομάδας.
-vbUseSystemDayOfTheWeek - χρησιμοποιεί την πρώτη ημέρα της εβδομάδας που καθορίζεται από τις ρυθμίσεις του συστήματός σας.

• Πρώτη εβδομάδα εβδομάδας (Προαιρετικός) - Μια σταθερά που καθορίζει την πρώτη εβδομάδα του έτους. Αν είναι κενό, τότε η 1η Ιανουαρίου εβδομάδα χρησιμοποιείται ως η πρώτη εβδομάδα του έτους. Το Firstweekofyear μπορεί να είναι μία από τις ακόλουθες τιμές:

-vbFirstJan1 - χρησιμοποιεί την εβδομάδα που περιέχει την 1η Ιανουαρίου.
-vbFirstFourDays - χρησιμοποιεί την πρώτη εβδομάδα που περιέχει τουλάχιστον τέσσερις ημέρες το νέο έτος.
-vbFirstFullWeek - χρησιμοποιεί την πρώτη πλήρη εβδομάδα του έτους.
-vbSystem - χρησιμοποιεί την πρώτη εβδομάδα του έτους όπως καθορίζεται από τις ρυθμίσεις του συστήματός σας.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση DatePart:

123456789

Sub UsingTheDatePartFunction ()Χαμηλώστε τοPartOfTheDate ως ακέραιοςthePartOfTheDate = DatePart ("εεεε", "12/12/2009")Debug.Print thePartOfTheDateΤέλος υπο

Το αποτέλεσμα είναι:

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

Η συνάρτηση VBA DateSerial λαμβάνει ένα έτος εισόδου, μήνα και ημέρα και επιστρέφει μια ημερομηνία.

Η σύνταξη της συνάρτησης DateSerial είναι:

DateSerial (Έτος, Μήνας, Ημέρα) όπου:

• Έτος - Ακέραιος αριθμός μεταξύ 100 και 9999 που αντιπροσωπεύει το έτος.
• Μήνας - Ακέραιος αριθμός που αντιπροσωπεύει τον μήνα.
• Ημέρα - Ακέραιος αριθμός που αντιπροσωπεύει την ημέρα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση DateSerial:

123456789

Sub UsingTheDateSerialFunction ()Χαμηλώστε την Ημερομηνία ως ΗμερομηνίαtheDate = DateSerial (2010, 11, 10)Debug. Εκτυπώστε την ΗμερομηνίαΤέλος υπο

Το αποτέλεσμα είναι:

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

Η συνάρτηση DateValue επιστρέφει μια ημερομηνία όταν λαμβάνεται μια αναπαράσταση συμβολοσειράς μιας ημερομηνίας.

Η σύνταξη της συνάρτησης DateValue είναι:

DateValue (Ημερομηνία) όπου:

• Ημερομηνία - Μια συμβολοσειρά που αντιπροσωπεύει την ημερομηνία.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση DateValue:

123456789

Sub UsingTheDateValueFunction ()Χαμηλώστε την Ημερομηνία ως ΗμερομηνίαtheDate = DateValue ("29 Οκτωβρίου 2010")Debug. Εκτυπώστε την ΗμερομηνίαΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία ημέρας VBA

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση ημέρας για να επιστρέψετε την ημέρα μιας ημερομηνίας εισαγωγής.

Η σύνταξη της συνάρτησης ημέρας είναι:

Ημέρα (ημερομηνία_τιμής) όπου:

• Date_value - Η ημερομηνία από την οποία θέλετε να εξαγάγετε την ημέρα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση ημέρας:

123456789

Sub UsingTheDayFunction ()Χαμηλώστε την ημέρα ως ακέραιοςtheDay = Day ("10/12/2010")Debug. Εκτυπώστε την ΗμέραΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία ώρας VBA

Μπορείτε να χρησιμοποιήσετε τη λειτουργία ώρας για να επιστρέψετε την ώρα μιας ώρας εισόδου.

Η σύνταξη της συνάρτησης Hour είναι:

Hρα (Timeρα) όπου:

• Χρόνος - Ο χρόνος από τον οποίο θέλετε να εξαγάγετε την ώρα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη λειτουργία ώρας:

123456789

Sub UsingTheHourFunction ()Χαμηλώστε την ώρα ως ακέραιοςtheHour = Hour ("2:14:17 π.μ.")Debug. Εκτυπώστε την ώραΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία λεπτού VBA

Μπορείτε να χρησιμοποιήσετε τη λειτουργία Minute για να επιστρέψετε την τιμή λεπτού ενός χρόνου εισόδου.

Η σύνταξη της συνάρτησης λεπτών είναι:

Λεπτό (Timeρα) όπου:

• Χρόνος - Ο χρόνος από τον οποίο θέλετε να εξαγάγετε την τιμή λεπτού.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη λειτουργία λεπτού:

123456789

Sub UsingTheMinuteFunction ()Χαμηλώστε τοMinuteValue ως ακέραιοςtheMinuteValue = Λεπτό ("2:14:17 π.μ.")Debug. Εκτύπωση theMinuteValueΤέλος υπο

Το αποτέλεσμα είναι:

Δεύτερη λειτουργία VBA

Μπορείτε να χρησιμοποιήσετε τη δεύτερη συνάρτηση για να επιστρέψετε τη δεύτερη τιμή ενός χρόνου εισόδου.

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

Δεύτερο (Timeρα) όπου:

• Χρόνος - Ο χρόνος από τον οποίο θέλετε να εξαγάγετε τη δεύτερη τιμή.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη δεύτερη συνάρτηση:

123456789

Sub UsingTheSecondFunction ()Χαμηλώστε τον ακέραιο αριθμόtheSecondValue = Δεύτερο ("2:14:17 π.μ.")Debug. Εκτύπωση theSecondValueΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία μήνα VBA

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση μήνας για να επιστρέψετε τον μήνα μιας ημερομηνίας εισαγωγής.

Η σύνταξη της συνάρτησης μήνα είναι:

Μήνας (Date_value) όπου:

• Date_value - Η ημερομηνία από την οποία θέλετε να εξαγάγετε τον μήνα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση μήνας:

12345678

Sub UsingTheMonthFunction ()Χαμηλώστε το μήνα ως ακέραιοςtheMonth = Month ("11/18/2010")Debug. Εκτυπώστε το μήναΤέλος υπο

Το αποτέλεσμα είναι:

Συνάρτηση VBA MonthName

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση MonthName για να επιστρέψετε το όνομα ενός μήνα από έναν παρεχόμενο αριθμό μήνα.

Η σύνταξη της συνάρτησης MonthName είναι:

MonthName (Number_of_month, [Ab Shortate]) όπου:

• Number_of_month - Ακέραιος αριθμός μεταξύ 1 και 12.
• Συντομογραφία (Προαιρετικός) - Καθορίζει εάν το όνομα του μήνα πρέπει να συντομευτεί. Εάν είναι κενό, χρησιμοποιείται η προεπιλεγμένη τιμή False.

12345678

Sub UsingTheMonthNameFunction ()Χαμηλώστε το όνομα του μηνός ως συμβολοσειράtheMonthName = MonthName (12, True)Debug.Print theMonthNameΤέλος υπο

Το αποτέλεσμα είναι:

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

Η λειτουργία TimeSerial διαρκεί μία ώρα, ένα λεπτό και μια δεύτερη και επιστρέφει έναν χρόνο.

Η σύνταξη της συνάρτησης TimeSerial είναι:

TimeSerial (ourρα, Λεπτό, Δεύτερο) όπου:

• Ourρα - Ακέραιος αριθμός μεταξύ 0 και 23 που αντιπροσωπεύει την τιμή της ώρας.
• Λεπτό - Ακέραιος αριθμός μεταξύ 0 και 59 που αντιπροσωπεύει την τιμή λεπτού.
• Δεύτερο - Ακέραιος αριθμός μεταξύ 0 και 59 που αντιπροσωπεύει τη δεύτερη τιμή.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη λειτουργία TimeSerial:

12345678

Sub UsingTheTimeSerialFunction ()Χαμηλώστε την ώρα ως ημερομηνίαtheTime = TimeSerial (1, 10, 15)Debug. Εκτυπώστε την ώραΤέλος υπο

Το αποτέλεσμα είναι:

Συνάρτηση VBA TimeValue

Η συνάρτηση TimeValue επιστρέφει ένα Time από μια αναπαράσταση συμβολοσειράς μιας ημερομηνίας ή ώρας.

Η σύνταξη της συνάρτησης TimeValue είναι:

TimeValue (Timeρα) όπου:

• Time - Μια συμβολοσειρά που αντιπροσωπεύει την ώρα.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση TimeValue:

12345678

Sub UsingTheTimeValueFunction ()Χαμηλώστε την ώρα ως ημερομηνίαtheTime = TimeValue ("22:10:17")Debug. Εκτυπώστε την ώραΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία καθημερινής VBA

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση Weekday για να επιστρέψετε έναν ακέραιο από το 1 - 7 που αντιπροσωπεύει μια ημέρα της εβδομάδας από μια ημερομηνία εισαγωγής.

Η σύνταξη της συνάρτησης Weekday είναι:

Εβδομάδα (Ημερομηνία, [Firstdayofweek]) όπου:

• Ημερομηνία - Η ημερομηνία από την οποία θέλετε να εξαγάγετε την τιμή της καθημερινής.
• Firstdayofweek (Προαιρετικός) - Μια σταθερά που καθορίζει την ημέρα της εβδομάδας που θα πρέπει να χρησιμοποιεί η συνάρτηση ως την πρώτη ημέρα της εβδομάδας. Εάν η κενή Κυριακή χρησιμοποιείται ως η πρώτη ημέρα της εβδομάδας. Το Firstdayofweek μπορεί να είναι μία από τις ακόλουθες τιμές:

-vbSunday - χρησιμοποιεί την Κυριακή ως την πρώτη ημέρα της εβδομάδας.
-vbMonday - χρησιμοποιεί τη Δευτέρα ως την πρώτη ημέρα της εβδομάδας.
-vbT Tuesday - χρησιμοποιεί την Τρίτη ως την πρώτη ημέρα της εβδομάδας.
-vbWed Wednesday - χρησιμοποιεί την Τετάρτη ως την πρώτη ημέρα της εβδομάδας.
-vbThursday - χρησιμοποιεί την Πέμπτη ως την πρώτη ημέρα της εβδομάδας.
-vbFriday - χρησιμοποιεί την Παρασκευή ως την πρώτη ημέρα της εβδομάδας.
-vbΣάββατο - χρησιμοποιεί το Σάββατο ως την πρώτη ημέρα της εβδομάδας.
-vbUseSystemDayOfTheWeek - χρησιμοποιεί την πρώτη ημέρα της εβδομάδας που καθορίζεται από τις ρυθμίσεις του συστήματός σας.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση Weekday:

1234567

Sub UsingTheWeekdayFunction ()Ελαφρύστε την εβδομάδα ως ακέραιοtheWeekDay = Εβδομάδα ("11/20/2019")Debug. Εκτυπώστε την εβδομάδαΤέλος υπο

Το αποτέλεσμα είναι:

Συνάρτηση VBA WeekdayName

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση WeekdayName για να επιστρέψετε το όνομα μιας εργάσιμης ημέρας από έναν εισαγόμενο αριθμό καθημερινής ημέρας.

Η σύνταξη της συνάρτησης WeekdayName είναι:

WeekdayName (Εβδομάδα, [Συντομογραφία], [Firstdayoftheweek]) όπου:

• Εβδομάδα - Ακέραιος αριθμός μεταξύ 1 και 7.
• Συντομογραφία (Προαιρετικός) -Καθορίζει εάν το όνομα της καθημερινής πρέπει να είναι συντομευμένο. Εάν είναι κενό, χρησιμοποιείται η προεπιλεγμένη τιμή False.
• Firstdayofweek (Προαιρετικός) - Μια σταθερά που καθορίζει την ημέρα της εβδομάδας που θα πρέπει να χρησιμοποιεί η συνάρτηση ως την πρώτη ημέρα της εβδομάδας. Εάν η κενή Κυριακή χρησιμοποιείται ως η πρώτη ημέρα της εβδομάδας. Το Firstdayofweek μπορεί να είναι μία από τις ακόλουθες τιμές:

-vbSunday - χρησιμοποιεί την Κυριακή ως την πρώτη ημέρα της εβδομάδας.
-vbMonday - χρησιμοποιεί τη Δευτέρα ως την πρώτη ημέρα της εβδομάδας.
-vbT Tuesday - χρησιμοποιεί την Τρίτη ως την πρώτη ημέρα της εβδομάδας.
-vbWed Wednesday - χρησιμοποιεί την Τετάρτη ως την πρώτη ημέρα της εβδομάδας.
-vbThursday - χρησιμοποιεί την Πέμπτη ως την πρώτη ημέρα της εβδομάδας.
-vbFriday - χρησιμοποιεί την Παρασκευή ως την πρώτη ημέρα της εβδομάδας.
-vbΣάββατο - χρησιμοποιεί το Σάββατο ως την πρώτη ημέρα της εβδομάδας.
-vbUseSystemDayOfTheWeek - χρησιμοποιεί την πρώτη ημέρα της εβδομάδας που καθορίζεται από τις ρυθμίσεις του συστήματός σας.

12345678

Sub UsingTheWeekdayNameFunction ()Χαμηλώστε το όνομα της εβδομάδας ως συμβολοσειράtheWeekdayName = WeekdayName (4)Debug. Εκτυπώστε το όνομα της εβδομάδαςΤέλος υπο

Το αποτέλεσμα είναι:

Λειτουργία Έτους VBA

Μπορείτε να χρησιμοποιήσετε τη Συνάρτηση Έτους για να επιστρέψετε το έτος μιας ημερομηνίας εισαγωγής.

Η σύνταξη της συνάρτησης του έτους είναι:

Έτος (ημερομηνία_τιμής) όπου:

• Date_value - Η ημερομηνία από την οποία θέλετε να εξαγάγετε το έτος.

Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη Λειτουργία Έτους:

12345678

Sub UsingTheYearFunction ()Χαμηλώστε το έτος ως ακέραιοςtheYear = Έτος ("11/12/2010")Debug. Εκτυπώστε το έτοςΤέλος υπο

Το αποτέλεσμα είναι:

Σύγκριση ημερομηνιών στο VBA

Μπορείτε να συγκρίνετε ημερομηνίες χρησιμοποιώντας τους τελεστές>, <και = στο VBA. Ο παρακάτω κώδικας σάς δείχνει πώς να συγκρίνετε δύο ημερομηνίες στο VBA.

12345678910111213141516171819

Υποσυγκρίνοντας Ημερομηνίες ()Dim dateOne As DateDim dateTwo As DatedateOne = "10/10/2010"dateTwo = "11/11/2010"Εάν dateOne> dateTwo Στη συνέχειαDebug.Print "dateOne is the later date"ElseIf dateOne = dateTwo Στη συνέχειαDebug.Print "Οι δύο ημερομηνίες είναι ίσες"ΑλλούDebug.Print "dateTwo is the later date"Τέλος εανΤέλος υπο

Μάθετε περισσότερα σχετικά με τον τρόπο μορφοποίησης ημερομηνιών ως συμβολοσειρών, προβάλλοντας αυτό το σεμινάριο.