|
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 - cdate(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 - cdate(r("日期时间"))
r("分钟数") = tsp.TotalMinutes
If r("分钟数") >= 0 And r("分钟数") <= 90 Then
r("考勤标记") = "◆"
End If
End Select
End With
|
加好友 
发短信
Post By：2016/4/19 14:26:00 [显示全部帖子]
