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

第76行显示55.25小时不对，5号下班后，5、6日应是休息了，应不显示数据。象这样连续出现3个单次卡，就要老虑下一行的日期是否连续，不连续视为休息，没日期、数据显示。
图片点击可在新窗口打开查看

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

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

[此贴子已经被作者于2019/6/21 7:11:54编辑过]

这段代码始终没起作用！

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

7点到8点，20点到20点30分这段时间他们的工作时间应是12小时，没有小数，可程序计算出来有的还会多出半小时。
图片点击可在新窗口打开查看

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

密码：732100

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

我换了一组打卡数，出现负数，如图：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

[此贴子已经被作者于2019/6/23 16:28:17编辑过]

第14行的算法应是第15行的时间1减第14行的时间2，如此类推，直至下一个奇打卡次数，这是夜班的算法，夜班不受7点到8点安8点计，20点到20点30分安20时计限。

[此贴子已经被作者于2019/6/23 16:27:05编辑过]

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

密码732100

我做在窗口的按钮程序有问题：

Dim dr2 As DataRow

For Each dr1 As DataRow In DataTables("打卡数据").DataRows

dr2 = DataTables("考勤统计").AddNew()

If dr1("已整理") = True

e.Cancel = True '如果是,取消操作.

Else

Dim p As Date = Nothing

Dim i As Integer = 1

For Each dc As DataCol In DataTables("打卡数据").DataCols

If dc.Name Like "时间*" AndAlso dc.name <> "刷卡日期" Then

If dr1.IsNull(dc.name) = False Then

Dim sp As TimeSpan = CDate(dr1(dc.name)) - p

If sp.TotalMinutes > 5 Then

dr2("时间" & i) = dr2("刷卡日期") & " " & dr1(dc.Name)

i += 1

p = dr1(dc.Name)

End If

Else

dr2(dc.name) = dr1(dc.name)

dr1("已整理") = True

End If

e.Form.Controls("Button1").Enabled = False

虽然取消了复制，但产生了空行，如何让空行不产生。

另外，表属性上的程序还是有问题：

有负数产生。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

主题：时间的计算