Public Function Date_Compare(t1 As Date, t2 As Date) As Long Dim ReturnValue As Long Dim diff_days1 As Integer Dim diff_days2 As Integer Dim diff_hours1 As Integer Dim diff_hours2 As Integer Dim diff_minutes1 As Integer Dim diff_minutes2 As Integer Dim diff_seconds1 As Integer Dim diff_seconds2 As Integer Dim d As Date d = Now diff_days1 = DateDiff("d", d, t1) diff_days2 = DateDiff("d", d, t2) diff_hours1 = DateDiff("h", d, t1) diff_hours2 = DateDiff("h", d, t2) diff_minutes1 = DateDiff("n", d, t1) diff_minutes2 = DateDiff("n", d, t2) diff_seconds1 = DateDiff("s", d, t1) diff_seconds2 = DateDiff("s", d, t2) If diff_days1 - diff_days2 > 0 Then ReturnValue = 1 ElseIf diff_days1 - diff_days2 < 0 Then ReturnValue = -1 Else If diff_hours1 - diff_hours2 > 0 Then ReturnValue = 1 ElseIf diff_hours1 - diff_hours2 > 0 Then ReturnValue = -1 Else If diff_minutes1 - diff_minutes2 > 0 Then ReturnValue = 1 ElseIf diff_minutes1 - diff_minutes2 < 0 Then ReturnValue = -1 Else If diff_seconds1 - diff_seconds2 > 0 Then ReturnValue = 1 ElseIf diff_seconds1 - diff_seconds2 < 0 Then ReturnValue = -1 Else ReturnValue = 0 End If End If End If End If Date_Compare = ReturnValue End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question