主题：[求助]时段报错

两个日期相减得出时段,报错?请老师指点?

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

点击浏览该文件:时段.table

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

问题解决,感谢"大红袍"老师,可我还是有不解之处:r("日期时间")本身就是Date类型的呀,为何还要转换一下呢?

 编译器有可能不认。

 

http://www.foxtable.com/help/topics/1517.htm

 

哦！明白了。谢谢！