delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف اجعل تاريخ نهاية العقد يكتب تلقائي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عند كتابة تاريخ بداية العقد كيف اجعل تاريخ نهاية العقد يكتب تلقائي مع العلم ان مدة العقد تحدد بالشهر مثلا 12 شهر مع مراعات ان تاريخ النهاية يكون قبل بيوم واحد مثلا :
تاريخ بداية العقد 2-2-2014 يكون تاريخ نهاية العقد 1-2-2015
وعليكم السلام في الحقيقة لست اعلم ان كان هذا قد يعطيك فكرة ما
كود :
date1.caption:=datetostr(date) ; date2.caption:=datetostr(date+364);
rabihpascal كتب :وعليكم السلام في الحقيقة لست اعلم ان كان هذا قد يعطيك فكرة ما
كود :
date1.caption:=datetostr(date) ; date2.caption:=datetostr(date+364);

بل هذا ما أبحث عنه بالضبط
شكرا أخي rabihpascal
جزاك الله خيرا و أحسن الله اليك
edit1.Text:=DateToStr( DateTimePicker1.Date+365)