判断时间差问题**

liubin

if (TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('F_GJLC').AsString = '01') and
      (Business.System.DateUtils.DaysBetween(Business.Data.SysSrv.SysService.Time,
      TDataGridColumn(AColumn).ColumnDef.Field.DataSet.FieldByName('F_GJSJ').AsDateTime) > 1) then
    begin
      AFont.Color := Business.System.Graphics.clRed;
      exit;
    end;

如上代码的作用是 当前时间>某时间 2天以上字体就变红色，如何控制这2天只在星期1-5有效？ 就是指，6，日不算有办法吗？

zfang

这个是算法问题，楼主网上可以找一找
大概思路是这样：
先获取这两个日期的相差天数，然后减去这两个日期之间的所包含的周六、周日的天数，最后就可以得到这两个日期间的相差天数。

liubin

先获取这两个日期的相差天数Business.System.DateUtils.DaysBetween 这函数就解决了把？
然后减去这两个日期之间的所包含的周六、周日的天数  这个说明下思路

zfang

这个还用说啊？。。。。。
先看这两个日期的差，看它是否是7的倍数，然后日期1是星期几，日期2是星期几，然后。。。。
建议，楼主网上找现成的算法吧。