请教取每周日期的时间段问题！！！

Question

请问我怎么取得两个时间段，如2003年9月5日到2003年11月8日每周的时间段，写入数据
库：
如：    week    begindate  enddate
     9月第一周  2003-09-05 2003-09-06     9月第二周  2003-09-07 2003-09-13                     

Answer 1

建议：如果何不调用SQLSERVER中的diff等函数试试小试菜刀

Answer 2

uses
  DateUtils;procedure ABC(t1,t2:TDateTime);
var
  n:Integer;
  t:TDateTime;
begin
   n:=1;
   while True  do
   begin
      t:=IncDays(t1,7); // 加7天
      if t>t2 then
         t:=t2; // 最后一天不能超过 t2
      WRITEDATABASE(t1,t,i); //把一条记录写进数据库
      if t=t2 then break; //如果已 t2 ，则结束
      t1:=t;
      Inc(n);
   end;

Answer 3

DayOfWeek(Date:TDateTime):Integer;
计算指定的日期为星期几，返回1～7之间的整数。sunday为每星期的第1天，saturday为第7天。
单元：DateUtils;