ماهي طريقة أخذ التاريخ من Edit واضافة سنة لهُ

[M_Mori2010]

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

ماهي طريقة أخذ التاريخ من Edit1 ووضعه في Edit2 واضافة 365 يوم له حيث ان Edit1 هي عبارة عن تاريخ اليوم ...؟

شكراً لكم

[Lam.Abdeldjalil]

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

كود :

Edit1.Text:=DateToStr(StrToDate(Edit1.Text)+365);

بالتوفيق

[محمد عبد العزيز]

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

اضافة سنة لهُ...واضافة 365 يوم له

انتبه السنة ليست 365 يوم
اكتب مثلا التاريخ 01/01/2012 النتيجة 31/12/2012

استخدم IncYear من الوحدة DateUtils

كود :

Edit1.Text:=DateToStr(IncYear(StrToDate(Edit1.Text)));

لا تنسى اضافة DateUtils لقائمة الUses

[M_Mori2010]

صحيح اخي جزاك الله كل خير

[عبد الهادي]

نشكركم على هذه المعلومة
كيف يمكن اجراء الفرق بين تاريخين ؟

[m.rabee]

السلام عليكم

إذا كنت تقصد المقارنة بين تاريخين

كود :

CompareDate(dtp1.Date,IncDay(dtp1.Date,2);

سوف تكون النتيجة (-1)
لان القيمة الثانية أكير من القيمة الاولى لو قمت بعكس القيم
سوف تحصل على النتيجة (1)

لو كانت القيم متساوية سوف تحصل على النتيجة (0)

[عبد الهادي]

جزاك الله خيرا اخي الاستاذ الكريم m.rabee
لكن لو اردت معرفة الايام بين تاريخين اثنين مثلا في برنامج مؤقت كيف يكون البرنامج
وفقك الله

[m.rabee]

السلام عليكم

يمكنك استخدام

كود :

DaysBetween

كود :

Edt1.Text := inttostr(DaysBetween(dtp1.Date,dtp2.Date));

[عبد الهادي]

جزاك الله خيرا استاذنا الكريم و جعل مبذولكم محصولكم يوم توفيتكم ثوابكم