[ تمت الإجابة ]البحث بالتوااريخ

اخى عزراا ما فهمت عليك ممكن تضع مثال بالمشكله بتعتك ؟؟؟؟؟؟؟؟؟؟؟؟؟

If DTPicker.Value > "12/22" And DTPicker.Value < "1/20" Then
Label1.Caption = "2"
ElseIf DTPicker.Value > "11/23" And DTPicker.Value < "12/22" Then
Label1.Caption = "1"
ElseIf DTPicker.Value > "3/21" And DTPicker.Value < "4/20" Then
Label1.Caption = "3"
Else
Label1.Caption = "Wrong date"
End If

هذا الكود لا يعمل فقط القسم الثاني منه فقط كيف تعرف السبب وما هو الحل

	If (Month(DTPicker) = 12 And Day(DTPicker) > 22) Or (Month(DTPicker) = 1 And Day(DTPicker) < 20) Then
		Label1.Caption = "2"
	ElseIf (Month(DTPicker) = 11 And Day(DTPicker) > 23) Or (Month(DTPicker) = 12 And Day(DTPicker) < 22) Then
		Label1.Caption = "1"
	ElseIf (Month(DTPicker) = 3 And Day(DTPicker) > 21) Or (Month(DTPicker) = 4 And Day(DTPicker) < 20) Then
		Label1.Caption = "3"
	Else
		Label1.Caption = "Wrong date"
	End If

شكراااا وعاشت اناملك مع اني وجت حل اخر لكن طريقة الحل حلوه

شكرا مره اخرى