- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]时段报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83897)
-- 发布时间：2016/4/19 13:26:00
-- [求助]时段报错
两个日期相减得出时段,报错?请老师指点?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:时段.table |
此主题相关图片如下：时段.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编辑过]
-- 发布时间：2016/4/19 14:26:00
--
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
-- 发布时间：2016/4/20 23:15:00
-- [求助]时段报错
问题解决,感谢"大红袍"老师,可我还是有不解之处:r("日期时间")本身就是Date类型的呀,为何还要转换一下呢?
-- 发布时间：2016/4/21 0:01:00
--
编译器有可能不认。
http://www.foxtable.com/help/topics/1517.htm
-- 发布时间：2016/4/21 12:54:00
-- [求助]时段报错
哦！明白了。谢谢！