01-11-2012, 07:18 PM
كود :
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

