[mounzerlb]

البرنامج أصبح بهذا الشكل

PHP كود :

Private Sub Timer2_Timer()

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 t1 <= 43200 And t2 <= 43200 Then
If t0 > t1 And t0 < t2 Then
Shape1.BackColor = &HFFFF&    '&HFFFFFF

Else
Shape1.BackColor = &HFFFFFF
End If
End If


If t1 >= 43200 And t2 >= 43200 Then
If t0 > t1 And t0 < t2 Then
Shape1.BackColor = &HFFFF&    '&HFFFFFF
Else
Shape1.BackColor = &HFFFFFF
End If
End If

If t1 >= 43200 And t2 <= 43200 Then
If t0 > t1 And t0 > t2 Then
Shape1.BackColor = &HFFFF&    '&HFFFFFF
Else
Shape1.BackColor = &HFFFFFF
End If
End If


If t1 <= 43200 And t2 >= 43200 Then
If t0 > t1 And t0 < t2 Then
Shape1.BackColor = &HFFFF&    '&HFFFFFF
Else
Shape1.BackColor = &HFFFFFF
End If
End If


End Sub 


شكر للأخ asto على المساعدة
بقي إحتمال وحيد لم يدخل في الحسبان
وقت التشغيل: 05:10:00
وقت الإيقاف: 05:00:00
الساعة الأن 18:00:00
المفروض حالة المصباح مضاءه