Break a single date down to its individual components using the DatePart function : DatePart « Date Functions « VBA / Excel / Access / Word






Break a single date down to its individual components using the DatePart function

 
Sub dateFunctions()
   Dim strDateString As String

   strDateString = "The year part is: " & DatePart("yyyy", Date) & vbCrLf & _
                   "The quarter part is: " & DatePart("q", Now) & vbCrLf & _
                   "The month part is: " & DatePart("m", Now) & vbCrLf & _
                   "The day part is: " & DatePart("d", Now) & vbCrLf & _
                   "The weekday is: " & DatePart("w", Now) & vbCrLf & _
                   "The week part is: " & DatePart("ww", Now) & vbCrLf & _
                   "The hour part is: " & DatePart("h", Now) & vbCrLf & _
                   "The minute part is: " & DatePart("n", Now) & vbCrLf & _
                   "The second part is: " & DatePart("s", Now)

   msgBox strDateString
End Sub

 








Related examples in the same category

1.Using DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) to Parse Dates
2.DatePart("q", Now)
3.DatePart("m", Now)
4.DatePart("d", Now)
5.DatePart("w", Now)
6.DatePart("ww", Now)
7.DatePart("h", Now)
8.DatePart("n", Now)
9.DatePart("s", Now)
10.DatePart returns 'Prints the Year
11.Prints the Month Number
12.Prints the Quarter Number
13.Prints the Day of the Year
14.Prints the Week of the Year