+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجعل تاريخ نهاية العقد يكتب تلقائي (/showthread.php?tid=6369)
كيف اجعل تاريخ نهاية العقد يكتب تلقائي - salmaanga - 07-08-2014
عند كتابة تاريخ بداية العقد كيف اجعل تاريخ نهاية العقد يكتب تلقائي مع العلم ان مدة العقد تحدد بالشهر مثلا 12 شهر مع مراعات ان تاريخ النهاية يكون قبل بيوم واحد مثلا :
تاريخ بداية العقد 2-2-2014 يكون تاريخ نهاية العقد 1-2-2015
كيف اجعل تاريخ نهاية العقد يكتب تلقائي - rabihpascal - 08-08-2014
وعليكم السلام في الحقيقة لست اعلم ان كان هذا قد يعطيك فكرة ما
كود :
date1.caption:=datetostr(date) ;
date2.caption:=datetostr(date+364);كيف اجعل تاريخ نهاية العقد يكتب تلقائي - salmaanga - 12-08-2014
rabihpascal كتب :وعليكم السلام في الحقيقة لست اعلم ان كان هذا قد يعطيك فكرة ما
كود :date1.caption:=datetostr(date) ; date2.caption:=datetostr(date+364);
بل هذا ما أبحث عنه بالضبط
شكرا أخي rabihpascal
جزاك الله خيرا و أحسن الله اليك
كيف اجعل تاريخ نهاية العقد يكتب تلقائي - khalmoh1971 - 21-10-2014
edit1.Text:=DateToStr( DateTimePicker1.Date+365)