怎么实现10个工作日后自动提醒？周末不算

Question

我想用DELPHI编写个自动提醒的软件，遇到点问题。想过10个工作日就自动提醒，周末和节假日不算，怎么实现？单纯10天好办，当前日期加10，万一中间有周六周日和放假的时间就不好办了。

Answer 1

记录下来当前时间time1，然后用timer去执行判断，如果当前时间timenow-time1 > 10且当前不是周末、节假日就提醒，否则不提醒即可。麻烦的是节假日判断，这个不好实现哦，又不是固定的

Answer 2

我需要的是一个计算某个日期的10个工作日后的日期：
例如某个客户是5月2日报的名，自动算出10个工作日后是几号，周六周日不算。（节假日可以不管）我做成下面的样子，老是不准，输入5月1日可以，输入5月10日就不对...procedure Tmyceshi.Button1Click(Sender: TObject);
  const days: array[1..7] of string=('7','1','2','3','4', '5','6');
  var
    week1:string;
    x:integer;
    date1:Tdatetime;
  
begin  date1:=strtodate(edit1.Text);  //日期
  x:=1;
  
  while (x<=10)  do
    begin
      //判断是否周末
        week1:=days[SysUtils.DayOfWeek(date1)]; //今日周几
          
         if (week1='6') or (week1='7')then
            begin
              date1:=date1+1;
            end;
          //日期增加   
          date1:=date1+1;
          x:=x+1;     end;    showmessage(datetostr(date1));
  
end;end.