有网友提供了一个快速的方法获取时间范围，主要就是字符串拼凑，系统时间函数，数据类型转换函数。
完整的时间格式为：yyyy-mm-dd Hh:Nn:Ss

Dim CurNow,sTime,DTime1,DTime2
CurNow = Now ''得到系统当前时间

sTime = CStr(Year(CurNow)) _
              & "-" & Right("00" & CStr(Month(CurNow)),2) _
              & "-" & Right("00" & CStr(Day(CurNow)),2)

DTime1 = CDate(sTime & " 00:00:00")
DTime2 = CDate(sTime & " 23:59:59")