(11-04-23, 09:43 AM)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 يوم
أنت تريد وضع التاريخ في textbox وهو لقيمه واحدة فقط
(11-04-23, 05:05 AM)mac9 كتب : كلما يرئ تاريخ تعده 30 يوم يضع التاريخ في textbox
واللست فيو متعدد الاسطر
فأي سطر تريد مع وجود textbox واحد؟
هل اتضح سؤالي؟!؟
(11-04-23, 09:43 AM)mac9 كتب : اخي الغالي ماذا تقصد لو هناك اكثر من تاريخ ؟
لانه هي خانة تحتوي على تواريخ اكيد حيصير بيها اكثر من تاريخ
مثلا 5 تواريخ قد عبرت مدة ال30 يوم
قولك الأول هو (
ينسخ التاريخ ويضعه في textbox)
(11-04-23, 05:05 AM)mac9 كتب : اريد فحص تاريخ البيع مع تاريخ الجهاز لو الفرق بينهما 30 يوم
ينسخ التاريخ ويضعه في textbox
وقولك الأخير المخالف للأول هو أن يضع جملة (
5 تواريخ قد عبرت مدة ال30 يوم)
أي عدد التوايخ وليس التاريخ نفسه فيكون الكود
كود :
Dim c As Integer = 0
For Each itm As ListViewItem In ListView1.Items
Dim d1 As Date = CDate(itm.SubItems(3).Text)
Dim d2 As Date = Today
Dim dif = DateDiff(DateInterval.Day, d1, d2)
If dif > 30 Then c += 1
Next
TextBox1.Text = String.Format("{0} تواريخ قد عبرت مدة ال30 يوم", c)
دقق قبل وضع السؤال لتجد المتابعة من الأعضاء