VBA/Excel/Access/Word/Date Functions/Now
Date and Now
<source lang="vb">
Sub dateFunctions()
Debug.Print "The present date and time is: " & Now Debug.Print "Today"s date is: " & Date
End Sub
</source>
Now returns a Variant/Date containing the current date and time according to your computer
<source lang="vb">
Sub dateDemo10()
Debug.Print Now
End Sub
</source>
Use Now to retrieve current Date and Time
<source lang="vb">
Private Sub myTime()
Dim time As Date Dim theHour As Integer Dim theDayOfTheWeek As Integer time = Now theHour = Hour(time) theDayOfTheWeek = Weekday(time) If (theHour > 8) And (theHour < 17) Then If (theDayOfTheWeek > 0) And (theDayOfTheWeek < 6) Then MsgBox ("You should be at work!") Else MsgBox ("I love weekends") End If Else MsgBox ("You should not be at work!") End If
End Sub
</source>