主题：时间的计算

这代码我刚才自己也顺着你的做法写出了，但未完整，时间2的上下班时间不定的，有的是下了零时，然后上早上7点，下正常班，有的是上了一早班，回家休息几小时后又上晚班，这是换班，所以不能把时间2固定判定计算，我的安打卡次数是否奇偶到有一定道理。

 

请具体说明计算逻辑，就所给的例子，截图说明某一行应该怎么计算。

 

 

此主题相关图片如下：qq图片20190619132230.png

参考

 

Select Case e.DataCol.name
    Case "时间1","时间2","时间3","时间4","时间5","时间6"
        Dim d1 As Date = e.DataRow("时间1")
        Dim d2 As Date = e.DataRow("时间2")
        Dim d3 As Date = e.DataRow("时间3")
        Dim d4 As Date = e.DataRow("时间4")
        If d2 = Nothing Then
            Dim fdr = e.DataTable.Find("_Identify > " & e.DataRow("_Identify"))
            If fdr IsNot Nothing Then
                d2 = fdr("时间1")
            Else
                d2 = d1
            End If
        ElseIf  d1.hour <= 5 Then
            If d3 <> Nothing Then
                d1 = d2
                d2 = d3
            Else
                Dim fdr = e.DataTable.Find("_Identify > " & e.DataRow("_Identify"))
                If fdr IsNot Nothing Then
                    d1 = e.DataRow("时间2")
                    d2 = fdr("时间1")
                Else
                    d2 = d1
                End If
            End If
        Else
            Dim d As Date = #07:00#
            Dim d0 As Date = #08:00#
            Dim d5 As Date = #20:00#
            Dim d6 As Date = #20:30#
            If d < d1 And d1 < d0 Then
                d1 = d0
            End If
            If d5 < d2 And d2 < d6 Then
                d2 = d5
            End If
            If d5 < d3 And d3 < d6 Then
                d3 = d5
            End If
        End If
        Dim sp As TimeSpan = d2-d1
        Dim n1 = sp.TotalHours
        Dim n = Math.Floor(n1)
        If n1 > n+0.5 Then
            n1 = n+0.5
        End If
        e.DataRow("工作时间") = n1
End Select

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

点击浏览该文件:工作簿1.zip

它应是图上的的数据，第77行4号的工作时间应为当天23时59分时间减当天上班时间加上第二天零时30分下班时间减去零时间，9号的工作时间应为上一天23时59分时间减上一天11时51分时间加上当天的时间3列下班时间减去当天时间2的上班时间。
此主题相关图片如下：qq图片20190619164532.png

写入代码以后，重置列重新计算啊

 

 

第76行显示55.25小时不对，5号下班后，5、6日应是休息了，应不显示数据。象这样连续出现3个单次卡，就要老虑下一行的日期是否连续，不连续视为休息，没日期、数据显示。
此主题相关图片如下：qq图片20190619185540.png

Select Case e.DataCol.name
    Case "时间1","时间2","时间3","时间4","时间5","时间6"
        Dim d1 As Date = e.DataRow("时间1")
        Dim d2 As Date = e.DataRow("时间2")
        Dim d3 As Date = e.DataRow("时间3")
        Dim d4 As Date = e.DataRow("时间4")
        If d2 = Nothing Then
            Dim fdr = e.DataTable.Find("_Identify > " & e.DataRow("_Identify"))
            If fdr IsNot Nothing Then
                d2 = fdr("时间1")
            Else
                d2 = d1
            End If
        ElseIf  d1.hour <= 5 Then
            If d3 <> Nothing Then
                d1 = d2
                d2 = d3
            Else
                Dim fdr = e.DataTable.Find("_Identify > " & e.DataRow("_Identify"))
                If fdr IsNot Nothing Then
                    d1 = e.DataRow("时间2")
                    d2 = fdr("时间1")
                Else
                    d2 = d1
                End If
            End If
        Else
            Dim d As Date = #07:00#
            Dim d0 As Date = #08:00#
            Dim d5 As Date = #20:00#
            Dim d6 As Date = #20:30#
            If d < d1 And d1 < d0 Then
                d1 = d0
            End If
            If d5 < d2 And d2 < d6 Then
                d2 = d5
            End If
            If d5 < d3 And d3 < d6 Then
                d3 = d5
            End If
        End If
        Dim sp As TimeSpan = d2-d1
        Dim n1 = sp.TotalHours
        Dim n = Math.Floor(n1)
        If n1 > n+0.5 Then
            n1 = n+0.5
        End If
        e.DataRow("工作时间") = iif(n1>24, 0, n1)
End Select

7点到8点之间的打卡全部安8点计，晚上20时到20.30分之间的时间安20时计，那么你表上计算出来的数很多多了0.5，不对了。