[mac9]

(11-04-23, 09:23 AM) وماذا لو كان هناك اكثر من تاريخ له 30 يوم؟ كتب :

كود :

Dim d1 As Date = CDate(ListView1.Items(0).SubItems(3).Text)
Dim d2 As Date = Today

Dim dif = DateDiff(DateInterval.Day, d1, d2)
If dif >= 30 Then
   TextBox1.Text = d1
End If

موضوعك ينقصه الكثير من التوضيح!!

اخي الغالي ماذا تقصد لو هناك اكثر من تاريخ ؟ 
لانه هي خانة تحتوي على تواريخ اكيد حيصير بيها اكثر من تاريخ 
مثلا 5 تواريخ قد عبرت مدة ال30 يوم