如何批量提取三个时间段内的时间

紫将

统计.zip (19.93 KB, 下载次数: 22)

2017-5-19 17:42 上传

点击文件名下载附件

原文件里只能提示两个时间
现想提示三个
而且是提取早，中，晚  三个时间段内的打卡时间

求帮助

紫将

提取早，中，晚  三个时间段内的打卡时间求帮助

紫将

    For iData = 1 To UBound(vData)
        If vData(iData, 2) >= dStart And vData(iData, 2) <= dEnd Then
            If Not oDic.Exists(vData(iData, 1)) Then
                iFill = iFill + 1
                ReDim Preserve vFill(1 To iTotalDay * 3 + 1, 1 To iFill)
                oDic(vData(iData, 1)) = iFill
                vFill(1, iFill) = vData(iData, 1)
                For iRow = 2 To iTotalDay * 3 + 1
                    vFill(iRow, iFill) = "缺签"
                Next
            End If
            iRow = oDic(vData(iData, 1))
            sTime = Format(vData(iData, 2), "HH:MM")
            iDay = Day(vData(iData, 2))
            If sTime <= "09:00" Then
                If sTime <= IIf(IsDate(vFill(2 + (iDay - iStartDay) * 3, iRow)), Format(vFill(2 + (iDay - iStartDay) * 3, iRow), "HH:MM"), "08:30") Then _
                    vFill(2 + (iDay - iStartDay) * 3, iRow) = TimeValue(sTime)
            ElseIf sTime >= "12:00" And sTime <= "15:00" Then
                If sTime >= IIf(IsDate(vFill(3 + (iDay - iStartDay) * 3, iRow)), Format(vFill(3 + (iDay - iStartDay) * 3, iRow), "HH:MM"), "12:00") Then _
                    vFill(3 + (iDay - iStartDay) * 3, iRow) = TimeValue(sTime)
            ElseIf sTime >= "16:00" Then
                If sTime >= IIf(IsDate(vFill(4 + (iDay - iStartDay) * 3, iRow)), Format(vFill(4 + (iDay - iStartDay) * 3, iRow), "HH:MM"), "17:00") Then _
                    vFill(4 + (iDay - iStartDay) * 3, iRow) = TimeValue(sTime)
            End If
        End If


这可也是提取三个时间段的，怎么用到这个表格中时，就不合适了，？