Sub dateFunctions()
Dim strDateString As String
strDateString = "The present date and time is: " & Now & vbCrLf & _
"Today's date is: " & Date & vbCrLf & _
"The day of the month is: " & Day(Date) & vbCrLf & _
"The day of the week is: " & Weekday(Date) & vbCrLf & _
"The name of the week day is: " & WeekdayName(Weekday(Date)) & vbCrLf & _
"The weekday abbreviated is: " & WeekdayName(Weekday(Date), True) & vbCrLf & _
"The month is: " & Month(Date) & vbCrLf & _
"The name of the month is: " & MonthName(Month(Date)) & vbCrLf & _
"The month abbreviated is: " & MonthName(Month(Date), True) & vbCrLf & _
"The year is: " & Year(Date)
msgBox strDateString
End Sub