[求助] 自动扣除时间计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有点绕，还是笨一些好

Select Case e.DataCol.name
    Case "开始时间","结束时间"
        Dim dr3 As DataRow = e.DataRow
        If dr3.IsNull("开始时间") Or dr3.IsNull("结束时间") Then
            dr3("耗时") = Nothing
        Else
            Dim d1 As Date = dr3("结束时间")
            Dim d2 As Date = dr3("开始时间")
            If d1 > d2 Then
                d2 = d2.AddDays(1)
            End If
            Dim ds As Date = new Date(d2.Year, d2.Month, d2.day, 12, 0, 0)
            Dim de As Date = new Date(d1.Year, d1.Month, d1.day, 13, 0, 0)
            Dim tp1, tp2 As TimeSpan
            tp1 = d1 - d2
            If d2 < ds AndAlso d1 < ds Then
                dr3("耗时") = tp1.TotalSeconds()/60/60
            Else If d2 < ds AndAlso d1 >= ds AndAlso d1 <= de Then
                tp2 = d1 - ds
                dr3("耗时") = (tp1.TotalSeconds() - tp2.TotalSeconds) /60/60
            Else If d2 < ds AndAlso d1 > de Then
                tp1 = d1 - d2
                dr3("耗时") = (tp1.TotalSeconds() - tp2.TotalSeconds) /60/60
            Else If d2 >= ds AndAlso d1 <= de Then
                dr3("耗时") = 0
            Else If d2 >= ds AndAlso d1 > de Then
                tp2 = de - d2
                dr3("耗时") = (tp1.TotalSeconds() - tp2.TotalSeconds) /60/60
            Else If d2 >= de Then
                dr3("耗时") = tp1.TotalSeconds()/60/60
            End If

        End If
End Select

如下 mark 休息时间计算

下载信息 [文件大小：下载次数： ]
点击浏览该文件:kwk作业piao输入系统.table

以下是引用wangyinming在2015-2-5 14:26:00的发言：
甜老师，在休息表中添加了数据，20：30~08：30还是计算12H，，求救

不能隔天添加，隔天添加分两段

呃，不可能不行。我测试都可以。

20:30-23:59

00:00-08:00

以下是引用wangyinming在2015-2-5 16:03:00的发言：
啊，原来是把生产的开始时间和结束时间分2段输入啊

把休息时间分两段

Select Case e.DataCol.name
    Case "生产开始时间","生产结束时间"
        Dim dr3 As DataRow = e.DataRow
        If dr3.IsNull("生产开始时间") Or dr3.IsNull("生产结束时间") Then
            dr3("开动时间") = Nothing
        Else
            Dim d1 As Date = dr3("生产结束时间")
            Dim d2 As Date = dr3("生产开始时间")
            Dim tp1, tp2 As TimeSpan
            If d1 < d2 Then
                d1 = d1.AddDays(1)
            End If
            Dim time As Double
            tp1 = d1 - d2
            time = tp1.TotalSeconds
            For Each dr As DataRow In DataTables("休息表").Select("")
                Dim d3 As Date = dr("开始时间")
                Dim d4 As Date = dr("结束时间")
                Dim d1s, d1e As Date
                If d4 > d2 Then
                    d1s = new Date(d2.Year, d2.Month, d2.day, d3.Hour, d3.Minute, 0)
                    d1e = new Date(d2.Year, d2.Month, d2.day, d4.Hour, d4.Minute, 0)
                Else
                    d1s = new Date(d1.Year, d1.Month, d1.day, d3.Hour, d3.Minute, 0)
                    d1e = new Date(d1.Year, d1.Month, d1.day, d4.Hour, d4.Minute, 0)
                End If
                If d1 > d1e Then
                    If d2 < d1e AndAlso d2 >= d1s Then
                        tp2 = d1e - d2
                        time = time - tp2.TotalSeconds
                    Else If d2 < d1s Then
                        tp2 = d1e - d1s
                        time = time - tp2.TotalSeconds
                    End If
                Else If d1 > d1s Then
                    If d2 < d1s Then
                        tp2 = d1 - d1s
                        time = time - tp2.TotalSeconds
                    Else
                        time = 0
                    End If
                End If

            Next
            dr3("开动时间") = time/60/60

        End If
End Select

主题：[求助] 自动扣除时间计算