function getWorkDay(dtBegin:TDateTime;IncDays:Integer):TDateTime;const  days: array[1..7] of string=(‘7‘,‘1‘,‘2‘,‘3‘,‘4‘, ‘5‘,‘6‘);var  week1:string;  x:integer;begin  //日期  x:=1;  while (x<=IncDays) do  begin    //判断是否周末    week1:=days[DayOfWeek(dtBegin)];    //今日周几    if (week1=‘6‘) or (week1=‘7‘) then      dtBegin:=dtBegin+1;    //日期增加    dtBegin:=dtBegin+1;    x:=x+1;  end;  Result:=dtBegin;end;