سؤال عن التاريخ باستخدام DateDiff

?????

Sql = "Select * From Tb Where Date <=" DDD "5"

حيث أن DDD متغير تضع فيه الفرق بين التاريخ الحالي والتاريخ المسجل في قاعدة البيانات .

إذا ما اتضح الموضوع كلمني علشان اعملك مثال ...

اخي الكريم

شكرا على ردك الا انني لم افهم جيدا الكود اعلاه ما اريده هو لدي حق في الجدول تحت اسم enddate وهو تاريخ الانتهاء اريد من البرنامج ان يقوم باعلامي قبل انتهاء التاريخ بخمسة ايام مقارنتا بتاريخ اليوم اي يقوم بابلاغي باني العقد سوف تنتهي بعد خمسة ايام اعتبارا من اليوم ارجو ان اكون قد وضحت الصوره

وشكرا على ردك

تحياتي

معليش على الكود الخطأ ...

الموضوع وما فيه يستلزم أن تقوم باستعلام عن التواريخ التي تلي التاريخ الحالي بيوم - 2 - 3- 4 أو 5 ، باستخدام دالة اضافة أيام بالشكل التالي :

Text1.Text = DateAdd ("D",1,Now)

ثم تقوم بالاستعلام عن التواريخ التي مثل Text1 .

Sql = "Select * From Tb1 Where Date ='" & Text1.Text & "'"

ثم نضيف يومين للكود الأول بالشكل التالي

Text1.Text = DateAdd ("D",2,Now)

وهكذا ...

وفي كل مرة نقوم بالتأكد من أن هناك سجلات ، فإن لم يكن هناك نواصل زيادة الأيام ، وإلا فإننا نضيف السجلات في جدول ...

معليش رديت على السريع وإن لم يتضح المقصود نبهني كي أوضح أكثر .

وبالتأكيد هناك أكثر من طريقة ولكن هذه محاولة .

اخي الكريم

شكرا على مساعدتك لقد جربت الطريقه ونجحت مائه بالمائه وجزاك الله خيرا

اخوك

عبدالله