【结】关于统计星期的天数**

一生何求

有没有统计一段时间里面有几天是星期六、天的代码例子啊？谢谢

lixy

没有现成的，要自己写算法。

zfang

没有现成的，网上找一下算法吧。
http://topic.csdn.net/t/20050310/09/3838881.html

一生何求

搞定，共享一下吧，希望有用！结贴吧

StartDate : TDateTime;
  EndDate : TDateTime;
  LoopDate : TDateTime;
  WeekNum : Integer;

StartDate := DataSet.FieldByName('StartDate').AsDateTime;
   EndDate := DataSet.FieldByName('EndDate').AsDateTime;

   WeekNum := 0;
   LoopDate := StartDate;
   While LoopDate <= EndDate do
     Begin
      If  (SysUtils.dayofweek(LoopDate)=1) or (SysUtils.dayofweek(LoopDate)=7) then
         begin
           WeekNum := WeekNum + 1;
         end;
      LoopDate := DateUtils.IncDay(LoopDate,1)
     end;

atiger

谢谢，学习