comparebyperfinishtime.vb

来自「vb开发的车间调度程序」· VB 代码 · 共 19 行

Public Class CompareByPerFinishTime   '当工序的相对剩余时间都为0时，根据该工序前道工序完工时间的大小进行排序
    Implements IComparer              '前道工序的完工时间越早，将该工序排在越前




    Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
        If (o1 Is Nothing) And (o2 Is Nothing) Then Return 0

        If (o1 Is Nothing) Then Return 1
        If (o2 Is Nothing) Then Return -1

        Dim p1 As CProcess = CType(o1, CProcess)
        Dim p2 As CProcess = CType(o2, CProcess)

        Return p1.preProcess.timeFinish - p2.preProcess.timeFinish
    End Function
End Class