[mounzerlb]

البرنامج بصيغته النهائية وفيه كل الإحتمالات
مع الشكر للجميع

PHP كود :

h0 = Format(Now, "hh")
h1 = Format(Text1.Text, "hh")
h2 = Format(Text2.Text, "hh")

m0 = Format(Now, "nn")
m1 = Format(Text1.Text, "nn")
m2 = Format(Text2.Text, "nn")

s0 = Format(Now, "ss")
s1 = Format(Text1.Text, "ss")
s2 = Format(Text2.Text, "ss")

t0 = ((h0 * 3600) + (m0 * 60) + s0)
t1 = ((h1 * 3600) + (m1 * 60) + s1)
t2 = ((h2 * 3600) + (m2 * 60) + s2)
 
    '===============================
If t0 >= t1 And t0 > t2 And t1 > t2 Then
q = 1
End If
If t0 > t1 And t0 >= t2 And t1 < t2 Then
q = 0
End If
If t0 <= t1 And t0 < t2 And t1 > t2 Then
q = 1
End If
If t0 < t1 And t0 <= t2 And t1 < t2 Then
q = 0
End If
If t0 < t1 And t0 >= t2 And t1 > t2 Then
q = 0
End If
If t0 < t1 And t0 > t2 And t1 < t2 Then
'áÇ íæÌÏ
End If
If t0 > t1 And t0 < t2 And t1 > t2 Then
'áÇ íæÌÏ
End If
If t0 >= t1 And t0 < t2 And t1 < t2 Then
q = 1
End If