+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشاكل في حساب التاريخ (/showthread.php?tid=249)
مشاكل في حساب التاريخ - SALAH - 04-06-2008
سلام
في الحقيقة عكرت صفوي بعض العمليات التي اود القيام بها في حساب التاريخ حتى اني احسب الفرق بين السنوات وأسهى عن الأيام والشهور فالرجاء ان توضحوا لي عملتين ****كم
1 في محاولة لعمل برنامج تربصات لمدات مختلفة 6 أشهر و سنة و3 سنوات
**** عند فتح البرنامج يكون تاريخ اليوم تلقائيا في EDIT ويكون عند combobox فيه المدات الموضحة وعندما أختار واحد يعطيني في edit آخر يوم و شهر وسنة نهاية التربص
2 كيف أحسب الفرق بين يومين حتى يخرج لي العمر بالسنوات فقط
مشاكل في حساب التاريخ - محمد عبد العزيز - 04-06-2008
1- غير واضح
2- مثلما تحسب بالورقة والقلم - تطح التاريخين وتقسم الفارق على عدد اسيام السنة 365 ثم تاخذ العد الصحيح فقط من النتيجة
والسلام عليكم ورحمة الله
مشاكل في حساب التاريخ - SALAH - 04-06-2008
شكرا لاهتمامك
نعم الثاني ساحاول فيه ولكن رجاءا ساعدني في العملية الأولى فهي صعبة جدا
عندي edit فيه تاريخ اليوم الحالي و عندي edit آخر فيه مدة ولتكن مثلا 6 أشهر
**** أن تخرج لي النتيجة في edit الثالث اليوم الذي تنتهي فيه تلك 6 أشهر
سأضرب مثالا
edit الأول فيه : 04/05/2008
edit الثاني أضع فيه مثلا 6 أشهر
تخرج لي النتيجة في edit الثالث على الشكل التالي :
04/12/2008
شكرا لكم
مشاكل في حساب التاريخ - محمد عبد العزيز - 04-06-2008
SALAH كتب :edit الأول فيه : 04/05/2008النتيجة 04/11/2008
edit الثاني أضع فيه مثلا 6 أشهر
تخرج لي النتيجة في edit الثالث على الشكل التالي :
04/12/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 - 04-06-2008
شكرا جزيلا أخي العزيز سأتمكن من اكمال الباقي
شكرا لك