مشاكل في حساب التاريخ

[SALAH]

سلام
في الحقيقة عكرت صفوي بعض العمليات التي اود القيام بها في حساب التاريخ حتى اني احسب الفرق بين السنوات وأسهى عن الأيام والشهور فالرجاء ان توضحوا لي عملتين ****كم
1 في محاولة لعمل برنامج تربصات لمدات مختلفة 6 أشهر و سنة و3 سنوات
**** عند فتح البرنامج يكون تاريخ اليوم تلقائيا في EDIT ويكون عند combobox فيه المدات الموضحة وعندما أختار واحد يعطيني في edit آخر يوم و شهر وسنة نهاية التربص
2 كيف أحسب الفرق بين يومين حتى يخرج لي العمر بالسنوات فقط

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

1- غير واضح
2- مثلما تحسب بالورقة والقلم - تطح التاريخين وتقسم الفارق على عدد اسيام السنة 365 ثم تاخذ العد الصحيح فقط من النتيجة
والسلام عليكم ورحمة الله

[SALAH]

شكرا لاهتمامك
نعم الثاني ساحاول فيه ولكن رجاءا ساعدني في العملية الأولى فهي صعبة جدا
عندي edit فيه تاريخ اليوم الحالي و عندي edit آخر فيه مدة ولتكن مثلا 6 أشهر
**** أن تخرج لي النتيجة في edit الثالث اليوم الذي تنتهي فيه تلك 6 أشهر

سأضرب مثالا
edit الأول فيه : 04/05/2008
edit الثاني أضع فيه مثلا 6 أشهر
تخرج لي النتيجة في edit الثالث على الشكل التالي :
04/12/2008

شكرا لكم

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

edit الأول فيه : 04/05/2008
edit الثاني أضع فيه مثلا 6 أشهر
تخرج لي النتيجة في edit الثالث على الشكل التالي :
04/12/2008

النتيجة 04/11/2008

كود :

Var DT : TDateTime; X,Y,M,D : Word; begin DT := StrToDate(Edit1.Text); DecodeDate(DT,Y,M,D); X := StrToInt(Edit2.Text); M := M + X; if M>12 then Begin M := M-12; Y := Y+1; End; DT := EncodeDate(Y,M,D); Edit3.Text := DateToStr(DT); end;

هذا ليس حل 100% البقية عليك

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

[SALAH]

شكرا جزيلا أخي العزيز سأتمكن من اكمال الباقي
شكرا لك