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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Date Functions » DatePart 
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
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.