كيف حساب المدة بين تاريخين ، عدد الأيام أو عدد الشهور أوعدد السنوات

[abdelali91]

تفضل اخي

كود :

function RemainingDays(from, _to: Tdate) : integer; begin Result := Trunc(_to - from); if Result < 0 then Result := 0; end;

للإستخراج

كود :

Label1.Caption:=IntToStr(RemainingDays(DateTimePicker1.Date, DateTimePicker2.Date));

مع العلم اني لست من وضع هذا الكود (للأمانة).... وجدته في المنتدى
http://www.delphi4arab.net/forum/showthr...p?tid=1828