Συνάρτηση DatePart
Η συνάρτηση DatePart επιστρέφει ένα συγκεκριμένο μέρος μιας ημερομηνίας.
DatePart (interval As String, date As Date [, firstDayOfWeek As Integer [, firstWeekOfYear As Integer]]) As Long
Τιμή επιστροφής:
The extracted part for the given date.
interval - A string expression from the following table, specifying the date interval.
interval (string value)
|
Εξήγηση
|
yyyy
|
Έτος
|
q
|
Τέταρτο
|
m
|
Μήνας
|
y
|
Ημέρα του έτους
|
w
|
Μέρα της εβδομάδος
|
ww
|
Εβδομάδα του έτους
|
d
|
Μέρα
|
h
|
Ώρα
|
n
|
Λεπτά
|
s
|
Δευτερόλεπτά
|
date - The date from which the result is calculated.
Τα κυριολεκτικά ημερομηνίας επιτρέπουν να καθορίσετε σαφείς μεταβλητές ημερομηνίας που είναι ανεξάρτητες από την τρέχουσα γλώσσα. Τα κυριολεκτικά περιβάλλονται μεταξύ συμβόλων κατακερματισμού #. Οι πιθανές μορφές είναι:
-
#yyyy-mm-dd#
-
#mm/dd/yyyy#
firstdayofweek: An optional parameter that specifies the starting day of a week.
firstdayofweek value
|
Εξήγηση
|
0
|
Χρήση προκαθορισμένων τιμών συστήματος
|
1
|
Κυριακή (προεπιλογή)
|
2
|
Δευτέρα
|
3
|
Τρίτη
|
4
|
Τετάρτη
|
5
|
Πέμπτη
|
6
|
Παρασκευή
|
7
|
Σάββατο
|
firstweekofyear: An optional parameter that specifies the starting week of a year.
firstweekofyear value
|
Εξήγηση
|
0
|
Χρήση προκαθορισμένων τιμών συστήματος
|
1
|
Η εβδομάδα 1 είναι η εβδομάδα με την 1η Ιανουαρίου, (προεπιλογή)
|
2
|
Η εβδομάδα 1 είναι η πρώτη εβδομάδα που περιέχει τέσσερις ή περισσότερες ημέρες εκείνου του έτους
|
3
|
Η εβδομάδα 1 η πρώτη εβδομάδα περιέχει μόνο ημέρες του νέου έτους
|
Sub example_datepart
MsgBox DatePart("ww", #12/31/2005#)
MsgBox DatePart(date:=#1999-12-30#, interval:="q")
End Sub