delphi4arab منتديات دلفي للعرب

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

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

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

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

شكرا لكم

SALAH كتب :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

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

SALAH

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

SALAH