两个日期相减得出时段,报错?请老师指点?
此主题相关图片如下：时段.png
With Tables("表A")
Dim r As Row = .Current
Dim y,m,d,h,u,s As Integer
y = r("日期时间").Year
m = r("日期时间").Month
d = r("日期时间").day
h = r("日期时间").Hour
u = r("日期时间").Minute
s = r("日期时间").Second
Dim d2 As Date
Dim tsp As TimeSpan
Select Case h
Case 6 To 8
d2 = New Date(y,m,d,8,30,00)
tsp = d2 - r("日期时间")
r("分钟数") = tsp.TotalMinutes
If r("分钟数") >= 0 And r("分钟数") <= 120 Then
r("考勤标记") = "◆"
End If
Case 17,18
d2 = New Date(y,m,d,18,30,00)
tsp = d2 - r("日期时间")
r("分钟数") = tsp.TotalMinutes
If r("分钟数") >= 0 And r("分钟数") <= 90 Then
r("考勤标记") = "◆"
End If
End Select
End With
此主题相关图片如下：时段2.png
[此贴子已经被作者于2016/4/19 13:28:03编辑过]
加好友 
发短信
Post By：2016/4/19 13:26:00 [显示全部帖子]
