|
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
|