求两个日期之间工作日的天数（除去星期六星期天)

最新推荐文章于 2021-06-16 13:57:57 发布

weixin_30254435

最新推荐文章于 2021-06-16 13:57:57 发布

阅读量187

点赞数

原文链接：http://www.cnblogs.com/twttafku/archive/2012/11/15/2770950.html

版权

function DayOfWeekCount(ADayOfWeek: Integer; const ABegin, AEnd: TDateTime): Integer;
var   lBeginDay, lEndDay: Integer;
begin
   lBeginDay := DayOfTheWeek(ABegin);
   lEndDay := DateUtils.DayOfTheWeek(AEnd);
   Result := (DateUtils.DaysBetween(ABegin, AEnd) + 1 + (lBeginDay - 1) + (7 - lEndDay)) div 7;
   if lBeginDay > ADayOfWeek then
      Result := Result - 1;
   if lEndDay < ADayOfWeek then
      Result := Result - 1;
end;

function GetWorkDays(ABeginTime, AFinishTime: TDateTime): Integer;
begin
Result := DateUtils.DaysBetween(ABeginTime, AFinishTime) + 1;
     { 除去周六周日 }
Result := Result -
         DayOfWeekCount(DateUtils.DaySaturday, ABeginTime, AFinishTime) -
         DayOfWeekCount(DateUtils.DaySunday, ABeginTime, AFinishTime);
end;

转载于:https://www.cnblogs.com/twttafku/archive/2012/11/15/2770950.html