【结帖】自动填充的问题

cdz0451

我做了个值班表，里面有周一到周日这7个字段，这7个字段想用自动填充，就是 当我打开 值班功能的时候，这7个字段现实出 下周1到7的日期 怎么实现 大侠教我

jiahaiminghr

还是用代码来填充吧，这样更简单些

cdz0451

代码。。 能给个思路嘛

jiahaiminghr

你可以在窗体的Onshow事件中填充各个字段的值

至于填充规则，你只要确定下周一的日期就可以了，其他的日期可以依次累加获得

cdz0451

呵呵，能给点代码么，小弟对D的代码不太了解 谢谢了

jiahaiminghr

楼主可以查一下delphi的帮助文件。

主要是找到关于星期运算的函数就可以了。

lisb

楼主,这个问题怎样了?

cdz0451

没解决啊。。。不太明白。 lisb帮解决下 谢谢

lisb

这中问题其实网上有很多,自己到网上搜一下就能找到答案
这个我在网上找的,Delphi代码,自己转换到平台中

得到本周一和下周一的日期
var  
      ss:Integer;  
      sDate:   TDateTime;               //本周一  
      nDate:   TDateTime;               //下周一  
  begin  
      ss:=   0;  
      case   dayofweek(now)   of  
          1:ss:=ss+1;                       //'星期日';  
          2:ss:=ss;                       //'星期一';  
          3:ss:=ss-1;                       //'星期二';  
          4:ss:=ss-2;                       //'星期三';  
          5:ss:=ss-3;                           //'星期四';  
          6:ss:=ss-4;                       //'星期五';  
          7:ss:=ss-5;                       //'星期六';  
      end;  
      sDate:=IncDay(now,ss);  
      nDate:=IncDay(sDate,7);  
      Label1.Caption:=   DateTimeToStr(sDate);  
      Label2.Caption:=   DateTimeToStr(nDate);

cdz0451

en 谢谢