主题：求教一个时段完成任务的统计办法

安装任务必须在72小时内完成，大于72小时的标红，城区每天7:30-19:00的任务必须当天21:00前完成，没完成的用逻辑列标识，19:00以后的任务必须在第二天17:00前完成，没完成的逻辑列标识，农村7:30-16:00的任务必须当天20：00之前完成，没完成的用逻辑列标识，16：00以后的任务必须第二天17:00前完成，没完成的逻辑列标识

具体请上传例子说明

就这个

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

例子和你的问题不搭配。

 比如，城市的，参考代码

 

Dim dt As DataTable = DataTables("管理")
For Each dr As DataRow In dt.Select("")
    Dim pd_t As Date = dr("派单时间")
    Dim fk_t As Date = dr("反馈时间")
    Dim s As String = Format(pd_t, "mmss")
    Dim flag As Boolean = False
    If s >= "07:30" AndAlso s <= "19:00" Then
        Dim d As Date = new Date(pd_t.Year, pd_t.Month, pd_t.Day, 21, 0, 0)
        If fk_t > d Then
            flag = True
        End If
    ElseIf s > "19:00" Then
        Dim d As Date = new Date(pd_t.Year, pd_t.Month, pd_t.Day, 17, 0, 0)
        d = d.AddDays(1)
        If fk_t > d Then
            flag = True
        End If
    End If
    dr("超时任务") = flag
Next

谢谢