السلام عليكم ورحمة الله وبركاته ...
ماهي طريقة أخذ التاريخ من Edit1 ووضعه في Edit2 واضافة 365 يوم له حيث ان Edit1 هي عبارة عن تاريخ اليوم ...؟
شكراً لكم
و عليكم السلام و رحمة الله وبركاته
كود :
Edit1.Text:=DateToStr(StrToDate(Edit1.Text)+365);
بالتوفيق
السلام عليكم ورحمة الله
إقتباس :اضافة سنة لهُ...واضافة 365 يوم له
انتبه السنة ليست 365 يوم
اكتب مثلا التاريخ 01/01/2012 النتيجة 31/12/2012
استخدم IncYear من الوحدة DateUtils
كود :
Edit1.Text:=DateToStr(IncYear(StrToDate(Edit1.Text)));
صحيح اخي جزاك الله كل خير
نشكركم على هذه المعلومة
كيف يمكن اجراء الفرق بين تاريخين ؟
السلام عليكم
إذا كنت تقصد المقارنة بين تاريخين
كود :
CompareDate(dtp1.Date,IncDay(dtp1.Date,2);
سوف تكون النتيجة (-1)
لان القيمة الثانية أكير من القيمة الاولى لو قمت بعكس القيم
سوف تحصل على النتيجة (1)
لو كانت القيم متساوية سوف تحصل على النتيجة (0)
جزاك الله خيرا اخي الاستاذ الكريم m.rabee
لكن لو اردت معرفة الايام بين تاريخين اثنين مثلا في برنامج مؤقت كيف يكون البرنامج
وفقك الله
السلام عليكم
يمكنك استخدام
كود :
Edt1.Text := inttostr(DaysBetween(dtp1.Date,dtp2.Date));
جزاك الله خيرا استاذنا الكريم و جعل مبذولكم محصولكم يوم توفيتكم ثوابكم