求算法:两个任意时间，如何计算他们的时间间隔(要除去星期六和星期日)

Question

急

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  sumday,i:integer;
  date1,date2:tdatetime;
begin
  date1:=datetimepicker1.Date;
  date2:=datetimepicker2.Date;
  sumday:=0;
  for i:=trunc(date1) to trunc(date2)-1 do
  begin
    if (dayofweek(i)<>1) and (dayofweek(i)<>7) then
      sumday:=sumday+1;
  end;
  showmessage(inttostr(sumday));
end;

Answer 2

控件datetimepicker1.date-datetimepicker2.date即可，
得到的结果为一个实数，代表的是两个时间相差的天数

Answer 3

不好意思，应该是
for i:=trunc(date1)+1 to trunc(date2) do

Answer 4

var
  j,k:integer;
begin
  k:=trunc(DateTimePicker2.Datetime-DateTimePicker1.Datetime);
  j:=trunc(k/7)*2;
  showmessage(inttostr(k-j));
end;

Answer 5

To renzhm(戴尔飞) 
你的算得不对吧，很明显，当k<7的时候，j=0