Select Quick Dates (Current Hour/Week/Month)
December 25, 2003
3:12 am
The following class retrieves the starting and end dates for the Current Hour/Day/Week/Month/Year: Option ExplicitPublic Property Get CurrentHour() As CollectionSet CurrentHour = New CollectionCurrentHour.Add CDate(Date & ” ” & Format(Now, “HH”) & “:00:00″),”StartDateTime”CurrentHour.Add CDate(Date & ” ” & Format(Now, “HH”) & “:59:59”),”EndDateTime”End PropertyPublic Property Get CurrentDay() As CollectionSet CurrentDay =