مساعدة فى ايجاد كود

[حسام عبدالمحسن]

السلام عليكم ورحمة الله

السادة الاعضاء الكرام محتاج مساعدة فى ايجاد كود لواجهه vba 

- بيتم ادخال اى تاريخ فى الخانة رقم1........  المطلوب يتم تزويد90 يوم على التاريخ ويعطى النتيجة فى الخانة رقم2

المطلوب الثانى محتاج اطرح التاريخ الموجود بالخانة رقم 2 من التاريخ الموجود بالخانة رقم5 ويعطى التاريخ او النتيجة فى الخانة رقم 3 ومرفق صورة للتوضيح

 

استعلام2019-10-11-2020.xlsb

[أ / محمد صالح]

لإضافة 90 يوم على التاريخ المكتوب في مربع نص وليكن اسمه textbox1 مثلا

ويتم وضع الناتج في textbox2 مثلا

textbox2.value = Format(DateAdd("d", 90, cdate(textbox1.value)), "yyyy/mm/dd")

ولطرح تاريخين نستعمل 

textbox3.value = DateDiff("d", cdate(textbox2.value), cdate(textbox5.value))

بالتوفيق

[حسام عبدالمحسن]

تمام شكر استاذى العزيز تم التجربة والكود يعمل بنجاح شكرا لحضرتك

 

[أ / محمد صالح]

الحمد لله الذي بنعمته تتم الصالحات