تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز
#1
السلام عليكم 

بعد التحية

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

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

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

مع خالص شكري لكم اخوتي
الرد }}}
تم الشكر بواسطة:
#2
(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 , mac9 , mac9
#3
(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 يوم
الرد }}}
تم الشكر بواسطة:
#4
(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
#5
(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 
هذا الكود يظهر لي كل التواريخ بنفس اليوم في الشهر المقبل

الرد }}}
تم الشكر بواسطة: 


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  حساب عدد الطلاب محمد خيري 4 117 12-03-24, 02:07 PM
آخر رد: محمد خيري
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 312 21-02-24, 11:44 PM
آخر رد: AHMED213
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 462 07-02-24, 08:59 PM
آخر رد: Kamil
  حساب المبلغ الإجمالي محمد خيري 2 300 30-01-24, 08:08 PM
آخر رد: محمد خيري
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 7 676 12-01-24, 07:31 PM
آخر رد: Kamil
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم