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 Dim sd2 As Date = sd.AddHours(6).AddMinutes(5) dr("周六_早上_出勤") = Tables("欢迎").Compute("Count(VipLog_DateTime)","SN = '" & Vals(i)(0) & "'and VipLog_DateTime >= #" & sd & "# and VipLog_DateTime <= #" & sd2 & "#")
加好友 
发短信
Post By：2017/12/10 14:51:00 [只看该作者]
