+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز (/showthread.php?tid=45870)
اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز - mac9 - 11-04-23
السلام عليكم
بعد التحية
انا لدي لست فيو
تحتوي على هذه العناصر
اريد فحص تاريخ البيع مع تاريخ الجهاز لو الفرق بينهما 30 يوم
ينسخ التاريخ ويضعه في textbox
ينسخ التاريخ ويضعه في textbox
بشكل يومي يعني الكود يبقى شغال دون توقف
كلما يرئ تاريخ تعده 30 يوم يضع التاريخ في textbox
كيف السبيل لهذه العملية
مع خالص شكري لكم اخوتي
كلما يرئ تاريخ تعده 30 يوم يضع التاريخ في textbox
كيف السبيل لهذه العملية
مع خالص شكري لكم اخوتي
RE: اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز - - 11-04-23
(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موضوعك ينقصه الكثير من التوضيح!!
RE: اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز - mac9 - 11-04-23
(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 يوم
RE: اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز - - 11-04-23
(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)دقق قبل وضع السؤال لتجد المتابعة من الأعضاء
RE: اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز - mac9 - 11-04-23
(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