10-12-2011, 02:18 PM
10-12-2011, 05:13 PM
تفضل اخي
للإستخراج
مع العلم اني لست من وضع هذا الكود (للأمانة).... وجدته في المنتدى
http://www.delphi4arab.net/forum/showthr...p?tid=1828
كود :
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