Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Use Hour to get the hour value from a date

Private Sub myTime0()     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