Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function basTimeSlot(MyTime As Date) As Integer
'To Categorize times to fall within intervals
'Minimize to only reflect the single discrete interval of 15 Minutes
'Tek-tips thread181-363503
'Michael Red 9/18/2002
Dim MySlot As Integer
Const MyInt = 1 / 96 '96 quarter haurs
'Remove the Days part of the date
MyTimeOfDay = CDbl(MyTime) - Fix(MyTime)
MySlot = Int(MyTimeOfDay / MyInt)
basTimeSlot = MySlot
End Function