'截取时间,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
'截取时间,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