代码段登记：xptable 和截取时间

最新推荐文章于 2025-08-15 09:21:36 发布

原创最新推荐文章于 2025-08-15 09:21:36 发布 · 804 阅读

0 ·

CC 4.0 BY-SA版权

2.VB.Net 专栏收录该内容

120 篇文章

订阅专栏

本文介绍了一种处理加班时间的方法，通过定义一个函数 getCutTime 来调整输入的时间到最接近的标准时间点，并展示了如何使用该函数处理加班记录的数据。通过对输入时间进行标准化处理，可以更准确地统计有效加班时间。

'截取时间，17:02 按17:30算起，17:50 按18:00算起，如果刚刚好17:30 则不变。 截取后再统计有效加班时间。
 Private Function getCutTime(dtm As Date) As Date
        Dim d As Date
        Select Case dtm.Minute
            Case 0 To 29
                d = dtm.AddMinutes(30 - dtm.Minute)
            Case 30
                d = dtm
            Case 31 To 59
                d = dtm.AddMinutes(60 - dtm.Minute)
        End Select
        Return d
    End Function

  With xRow.Cells
            '-----------1-------------
            '.Add(New XPTable.Models.Cell(otd.StaffID.ToString))
            '.Add(New XPTable.Models.Cell(otd.OverTimeDayDate))
            '.Add(New XPTable.Models.Cell(otd.WorkNo))
            '.Add(New XPTable.Models.Cell(otd.UserName))
            '.Add(New XPTable.Models.Cell(otd.WorkType))
            '.Add(New XPTable.Models.Cell(otd.OTReason))
            '.Add(New XPTable.Models.Cell(ShowXpTime(otd.OTExpectStartDate)))
            '.Add(New XPTable.Models.Cell(ShowXpTime(otd.OTExpectEndDate)))
            '.Add(New XPTable.Models.Cell(ShowXpTime(otd.OTFinishStartDate)))
            '.Add(New XPTable.Models.Cell(ShowXpTime(otd.OTFinishEndDate)))
            '.Add(New XPTable.Models.Cell())
            '.Add(New XPTable.Models.Cell(otd.OTStatus))
            '.Add(New XPTable.Models.Cell(otd.OTSumHours.ToString))
            '.Item(eCol.IsValidated).Checked = otd.IsValidated
            '-----------2-------------
            For i As Integer = 0 To Cmod.Columns.Count - 1
                .Add(New XPTable.Models.Cell())
            Next
            .Item(eCol.StaffID).Text = otd.StaffID.ToString
            .Item(eCol.OTDay).Data = otd.OverTimeDayDate
            .Item(eCol.WorkNo).Text = otd.WorkNo
            .Item(eCol.UserName).Text = otd.UserName
            .Item(eCol.WorkType).Text = otd.WorkType
            .Item(eCol.OTReason).Text = otd.OTReason
            .Item(eCol.OTExpectStart).Text = ShowXpTime(otd.OTExpectStartDate)
            .Item(eCol.OTExpectEnd).Text = ShowXpTime(otd.OTExpectEndDate)
            .Item(eCol.OTFinishStart).Text = ShowXpTime(otd.OTFinishStartDate)
            .Item(eCol.OTFinishEnd).Text = ShowXpTime(otd.OTFinishEndDate)
            .Item(eCol.IsValidated).Checked = otd.IsValidated
            .Item(eCol.OTStatus).Text = otd.OTStatus
            .Item(eCol.OTSumHours).Text = otd.OTSumHours.ToString
        End With