Question

我需要计算两个给定日期之间的工作日（工作日）数。工作日是一周中的所有日子，周六和周日除外。我不打算考虑这个假期。

如何计算两个日期之间的营业日数？

Answer 1

function BusinessDaysSinceFixedDate ( const nDate : tDateTime ) : integer;
const
  Map : array [ -6 .. 6 ] of integer
      = (  0, 0, 1, 2, 3, 4, 5, 5, 5, 6, 7, 8, 9 ); 
var
  X : integer;
begin
  X := trunc ( nDate );
  Result := 5 * ( X div 7 ) + Map [ X mod 7 ];
end;

function BusinessDaysBetweenDates ( const nStartDate : tDateTime;
                                    const nEndDate   : tDateTime ) : integer;
begin
  Result :=   BusinessDaysSinceFixedDate ( nEndDate )
            - BusinessDaysSinceFixedDate ( nStartDate );
end;

例程BusinessDaysSinceFixedDate计算自固定日期以来的营业日数。具体日期与1899年12月25日星期一无关。它只计算已经过的周数（X div 7）并将其乘以5。然后根据星期几添加偏移量进行校正。请注意，（X mod 7）将返回负数日期的负值，即1899年12月30日之前的日期。

例程BusinessDaysBetweenDates只调用BusinessDaysSinceFixedDate作为开始日期和结束日期，并从另一个日期中减去一个。

Answer 2

不循环所有日期和输入参数不依赖于顺序。

Uses DateUtils,Math;

function WorkingDaysBetween( const firstDate,secondDate : TDateTime) : Integer;
var
  startDate,stopDate : TDateTime;
  startDow,stopDow : Integer;
begin
  if (firstDate < secondDate) then
  begin
    startDate := firstDate;
    stopDate := secondDate;
  end
  else
  begin
    startDate := secondDate;
    stopDate := firstDate;
  end; 
  startDow := DayOfTheWeek(startDate);
  stopDow := DayOfTheWeek(stopDate);
  if (stopDow >= startDow) then
    stopDow := Min(stopDow,6)
  else
    Inc(stopDow,5); 

  Result := 
    5*WeeksBetween(stopDate,startDate) + 
    (stopDow - Min(startDow,6));
end;

Answer 3

您需要使用DayOfTheWeek（来自DateUtils单位）和一个计数器，从开始日期到结束日期迭代。（你也可能需要一张假期表，以排除你的计数。）

function BusinessDaysBetween(const StartDate, EndDate: TDateTime): Integer;
var
  CurrDate : TDateTime;
begin
  CurrDate := StartDate;
  Result := 0;
  while (CurrDate <= EndDate) do
  begin
    // DayOfTheWeek returns 1-5 for Mon-Fri, so 6 and 7 are weekends
    if DayOfTheWeek(CurrDate) < 6 then
      Inc(Result);
    CurrDate := CurrDate + 1;
  end;
end;

你可以通过不担心参数的顺序来加强这一点（换句话说，如果开始是在结束之前或结束之前是开始之前，那么功能仍然有效）：

function BusinessDaysBetween(const FirstDate, SecondDate: TDateTime): Integer;
var
  CurrDate : TDateTime;
  StartDate, EndDate: TDateTime;
begin
  if SecondDate > FirstDate then
  begin
    StartDate := FirstDate;
    EndDate := SecondDate;
  end
  else
  begin
    StartDate := SecondDate;
    EndDate := FirstDate;
  end;

  CurrDate := StartDate;
  Result := 0;

  while (CurrDate <= EndDate) do
  begin
    if DayOfTheWeek(CurrDate) < 6 then
      Inc(Result);
    CurrDate := CurrDate + 1;
  end;
end;

如何计算两个日期之间的工作日数？

3 个答案: