منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اعصاء منتدنا الغالى

لديا تاريخ Date de fabrication تاريخ الانتاج نفرض انه 21/08/2013

اريد ان يقوم الكود باصافة 154 يوم الى التاريخ الاول لنحصل على تاريخ الانتهاء 22/01/2014

المطلوب .

21/08/2013

+
154
=
22/01/2014

ارفق لى مثال اخى asto برك الله فيك

asto كتب :

كود :

dim s,ss as date

s=text1.text

ss=DateAdd("d", 154, s)

wolf1120 كتب :ارفق لى مثال اخى asto برك الله فيك

بس الأخ asto اعطاك مثال جاهز

ضع التاريخ داخل Text1.Text والناتج حيكون في المتغير ss

مشكورين اخوتي علي ماتقدموه من مساعدات