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

[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]

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