主题：[求助]日期时间比较

 老师，我有列是DATETIME类型的数据列，想分别取日期和时间出来做比较和计算，该怎么做。
比如“2017-12-05 05：49”我要统计等于这一天（日期是变量，不是只统计这一天的），且时间小于06:05的结果：
Dim d As Date = Date.Today
Dim dn As Integer = d.DayOfWeek
Dim sd As Date
If dn=6 Then
    sd=d
Else
    sd=d.AddDays(-dn-1)
End If
dr("周六_早上_出勤") = Tables("欢迎").Compute("Count(VipLog_DateTime)","SN = '" & Vals(i)(0) & "'and convert(Date,VipLog_DateTime) = " & sd & "' and convert(Time,VipLog_DateTime) between #00:00# and #06:05# ")    

老师因为我要分成好多列出报表（如下）显示一周的出勤情况（周六-周五），有没有什么其他好方法，不然需要定义很多的变量。
“”周六_早上_出勤","周六_早上_迟到","周六_早上_旷工","周六_早上_早退","周六_下午_出勤","周六_下午_迟到","周六_下午_旷工","周六_下午_早退","周六_晚上加班",
"周日_早上_出勤","周日_早上_迟到","周日_早上_旷工","周日_早上_早退","周日_下午_出勤","周日_下午_迟到","周日_下午_旷工","周日_下午_早退","周日_晚上加班",
"周一_早上_出勤","周一_早上_迟到","周一_早上_旷工","周一_早上_早退","周一_下午_出勤","周一_下午_迟到","周一_下午_旷工","周一_下午_早退","周一_晚上加班",
"周二_早上_出勤","周二_早上_迟到","周二_早上_旷工","周二_早上_早退","周二_下午_出勤","周二_下午_迟到","周二_下午_旷工","周二_下午_早退","周二_晚上加班",
"周三_早上_出勤","周三_早上_迟到","周三_早上_旷工","周三_早上_早退","周三_下午_出勤","周三_下午_迟到","周三_下午_旷工","周三_下午_早退","周三_晚上加班",
"周四_早上_出勤","周四_早上_迟到","周四_早上_旷工","周四_早上_早退","周四_下午_出勤","周四_下午_迟到","周四_下午_旷工","周四_下午_早退","周四_晚上加班",
"周五_早上_出勤","周五_早上_迟到","周五_早上_旷工","周五_早上_早退","周五_下午_出勤","周五_下午_迟到","周五_下午_旷工","周五_下午_早退","周五_晚上加班"}

老师，请查阅附件，我自己写了段代码在窗口按钮事件，但是计算速度相当慢，大概要两分钟。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.rar

 老师没看懂您的逻辑，我运行了一下结果有点不对：

明白了，谢谢老师！厉害！