إستخراج الفرق بين تاريخين

[NabHib]

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

كيف يمكنني إستخراج الفرق بين تاريخين مثلا 26/03/2010 و 26/04/2010 الفرق بينهما هو شهر

فكيف يمكنني إستخراج الفرق برمجيا وشكرا جزيلا لكم

[TF6M]

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

أولا أخي إستعمل خاصية البحث , في خصوص سؤالك حاول الإطلاع على :

1- مقارنة بين تاريخين في datetimepicker (http://delphi4arab.com/forum/showthread.php?t=1821&highlight=%CA%C7%D1%ED%CE%ED%E4)
2- سؤال حول إحصائيات بين تاريخين (http://delphi4arab.com/forum/showthread.php?t=813&highlight=%CA%C7%D1%ED%CE%ED%E4)

مثال توضيحي EncodeDate/DecodeDate

var
Date : TDateTime;
Year, Month, Day : Word;
begin
Date := StrToDate('12/12/2012');//End Of The World !.
DecodeDate(Date, Year, Month, Day);
ShowMessage('Year : ' + IntToStr(Year));
end;

الأن نأتي للمقارنة :

يكفي أن ندرج تاريخين Date1&Date2 , نستعمل DecodeDate ثم نقوم بطرح السنوات مع بعض
و الأيام .... الخ .

بالتوفيق ,,

[Unprogramme]

السلام عليكم ورحمة الله وبركاته،
العملية سهلة جدا ،
أضف إلى Uses التعليمة التالية DateUtils



var
Date1, Date2 : TDateTime;
Diff : Extended;
Jour1, Mois1, Annee1 : Word;
Jour2, Mois2, Annee2 : Word;
begin
Date1 := EncodeDate(Annee1, Mois1, Jour1);
Date2 := EncodeDate(Annee2, Mois2, Jour2);
Diff := DaysBetween(Date2, Date1);
end;

[nabilkeb]

مرجع المبتدإ (مجموعة من الأكواد) (http://www.delphi4arab.com/forum/showthread.php?t=1828) 15-39


أيضا راجعي هذا الرابط (http://www.delphi4arab.com/forum/showthread.php?t=2810)

[NabHib]

بارك الله فيكم