Συνάρτηση DatePart
Η συνάρτηση DatePart επιστρέφει ένα συγκεκριμένο μέρος μιας ημερομηνίας.
DatePart (interval As String, date As Date [, firstDayOfWeek As Integer [, firstWeekOfYear As Integer]]) As Long
Τιμή επιστροφής:
Το εξαγόμενο μέρος για τη δεδομένη ημερομηνία.
 interval (διάστημα) - Μια παράσταση συμβολοσειράς από τον παρακάτω πίνακα, που καθορίζει το διάστημα ημερομηνίας.
  
    | interval (τιμή συμβολοσειράς) | Εξήγηση | 
  
    | yyyy | Έτος | 
  
    | q | Τέταρτο | 
  
    | m | Μήνας | 
  
    | y | Ημέρα του έτους | 
  
    | w | Μέρα της εβδομάδος | 
  
    | ww | Εβδομάδα του έτους | 
  
    | d | Μέρα | 
  
    | h | Ώρα | 
  
    | n | Λεπτά | 
  
    | s | Δευτερόλεπτά | 
 
 date (ημερομηνία) - Η ημερομηνία από την οποία υπολογίζεται το αποτέλεσμα.
Τα κυριολεκτικά ημερομηνίας επιτρέπουν να καθορίσετε σαφείς μεταβλητές ημερομηνίας που είναι ανεξάρτητες από την τρέχουσα γλώσσα. Τα κυριολεκτικά περιβάλλονται μεταξύ συμβόλων κατακερματισμού #. Οι πιθανές μορφές είναι:
    - 
        #yyyy-mm-dd# 
- 
        #mm/dd/yyyy# 
 
 firstdayofweek: Μια προαιρετική παράμετρος που καθορίζει την ημέρα έναρξης μιας εβδομάδας.
  
    | τιμή firstdayofweek | Εξήγηση | 
  
    | 0 | Χρήση προκαθορισμένων τιμών συστήματος | 
  
    | 1 | Κυριακή (προεπιλογή) | 
  
    | 2 | Δευτέρα | 
  
    | 3 | Τρίτη | 
  
    | 4 | Τετάρτη | 
  
    | 5 | Πέμπτη | 
  
    | 6 | Παρασκευή | 
  
    | 7 | Σάββατο | 
 firstweekofyear: Μια προαιρετική παράμετρος που καθορίζει την εβδομάδα έναρξης ενός έτους.
  
    | τιμή firstweekofyear | Εξήγηση | 
  
    | 0 | Χρήση προκαθορισμένων τιμών συστήματος | 
  
    | 1 | Η εβδομάδα 1 είναι η εβδομάδα με την 1η Ιανουαρίου, (προεπιλογή) | 
  
    | 2 | Η εβδομάδα 1 είναι η πρώτη εβδομάδα που περιέχει τέσσερις ή περισσότερες ημέρες εκείνου του έτους | 
  
    | 3 | Η εβδομάδα 1 η πρώτη εβδομάδα περιέχει μόνο ημέρες του νέου έτους | 
 
Sub example_datepart
    MsgBox DatePart("ww", #01/02/2005#) ' displays 2 because weeks start on Sunday
    MsgBox DatePart("ww", #12/31/2005#) ' displays 53
    MsgBox DatePart(date:=#2005-12-30#, interval:="q") ' displays 4
End Sub