[mac9]

السلام عليكم 

بعد التحية

انا لدي لست فيو 

تحتوي على هذه العناصر 

اريد فحص تاريخ البيع مع تاريخ الجهاز لو الفرق بينهما 30 يوم 
ينسخ التاريخ ويضعه في textbox

بشكل يومي يعني الكود يبقى شغال دون توقف 
كلما يرئ تاريخ تعده 30 يوم يضع التاريخ في textbox

كيف السبيل لهذه العملية 

مع خالص شكري لكم اخوتي

[]

(11-04-23, 05:05 AM)mac9 كتب :

السلام عليكم 

بعد التحية

انا لدي لست فيو 

تحتوي على هذه العناصر 

اريد فحص تاريخ البيع مع تاريخ الجهاز لو الفرق بينهما 30 يوم 
ينسخ التاريخ ويضعه في textbox

بشكل يومي يعني الكود يبقى شغال دون توقف 
كلما يرئ تاريخ تعده 30 يوم يضع التاريخ في textbox

كيف السبيل لهذه العملية 

مع خالص شكري لكم اخوتي

وماذا لو كان هناك اكثر من تاريخ له 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

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

[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 يوم

[]

(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)

---

دقق قبل وضع السؤال لتجد المتابعة من الأعضاء

[mac9]

(11-04-23, 09:47 AM) كتب :

(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)

---

دقق قبل وضع السؤال لتجد المتابعة من الأعضاء

شكرا لك اخي الغالي لو ما انت لما وصلت للحل 

PHP كود :

For Each item As ListViewItem In ListView1.Items
            Dim d1 As Date = CDate(item.SubItems(2).Text)
            Dim d2 As Date = Today

            If d1.Day = d2.Day Then
                item.SubItems(0).BackColor = Color.Red
                Label1.Text = item.SubItems(1).Text
            Else
                item.SubItems(0).BackColor = Color.White
            End If
        Next 


هذا الكود يظهر لي كل التواريخ بنفس اليوم في الشهر المقبل