Private Sub Form_Timer()
'10:00 AM = 0.41667
'1:00 PM =0.54167
'4:00 PM= 0.66667
Dim strDate As Date
strDate = Format(Now, "mm/dd/yyyy h:n")
If strDate = Format((Date + 0.41667), "mm/dd/yyyy h:n") Or strDate = Format((Date + 0.54167), "mm/dd/yyyy h:n") Or strDate = Format((Date + 0.66667), "mm/dd/yyyy h:n") Then
'Do Something
End If
End Sub
|