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

[SALAH]

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

[B.M.AbdelAziZ]

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

[SALAH]

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

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

شكرا لكم

[B.M.AbdelAziZ]

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]

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