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