[]

(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

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