كيفية الإضافة على التاريخ

بدأه tahasit في 11 أبريل 2009 · 5 رد · 795 مشاهدة · في لغة Delphi

مشاركة: واتساب X فيسبوك تيليجرام

#111 أبريل 2009 في 11:16 صاحب الموضوع

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

واجهتني مشكلة في المشروع الذي أعمل عليه وأرجو من إخواني مساعدتي في حلها

المشكلة تظهر من خلال الشرح في الصورة المرفقة :

حيث أني أريد ان تضاف مدة العطلة إلى التاريخ المعطى في أعلى الصورة ثم يظهر التاريخ الجديد أي تاريخ نهاية العطلة

مثال : أقوم بكتابة تاريخ بداية العطلة وليكن :10/10/208

ثم أكتب مدة العطلة الممنوحة للموظف في خانة مدة العطلة ولتكن مثلا 35 يوم

وعندما أضغط على زر ''أحسب تاريخ الدخول ''تظهر لي النتيجة في الاسفل والتي هي :14/11/2008

مع الأخذ بعين الاعتبار الاختلاف بين الاشهر

تم تعديل هذه المشاركة بواسطة tahasit في 11 أبريل 2009 في 11:34

#211 أبريل 2009 في 13:52

إليك الحل أخي الكريم إن إحتجت أي شئ أنا في الخدمة

Var D : TDateTime;

j : Integer;

begin

D := StrToDate( DBEdit1.Text );

j := StrToInt( DBEdit2.Text );

D := D + J;

DBEdit3.Text := DateTostr( D );

end;

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#311 أبريل 2009 في 14:34

بارك الله فيك أخي ومشكور على الرد السريع

والله أبهجت قلبي حفظك الله ورعاك.

شكرا

#411 أبريل 2009 في 17:36

لاشكر على واجب وفقك الله

قال الحسن البصري : يا إبن آدم إنما أنت أيام إذا ذهب يومك ذهب بعضك

#512 أبريل 2009 في 03:12

يمكنك استعمال هذا الكود

edit3.text := datetostr(strtodate(edit1.text)+strtodate(edit2.text));

إعجاب الإنسان بنفسه دليل على صغر عقله

-----------------------------------------------------------------

رأس الحكمة مخافة الله

#612 أبريل 2009 في 15:14

شكرا أخي وبارك الله فيك