如何得到本周四或下周4的日期

Question

在delphi中有這樣的函數嗎？請指教謝謝！！

Answer 1

好像没有直接的函数
可以用 WeekOf,DayOfTheWeek,DayOfWeek 然后通过计算来得到

Answer 2

var
  ss:Integer;
  sDate: TDateTime;       //本周四
  nDate: TDateTime;       //下周四
begin
  ss:= 0;
  case dayofweek(now) of
    1:ss:=ss+4;           //'星期日';
    2:ss:=ss+3;           //'星期一';
    3:ss:=ss+2;           //'星期二';
    4:ss:=ss+1;           //'星期三';
    5:ss:=ss;             //'星期四';
    6:ss:=ss-1;           //'星期五';
    7:ss:=ss-2;           //'星期六';
  end;
  sDate:=IncDay(now,ss);
  nDate:=IncDay(sDate,7);
  //weekof(sDate);
  Label1.Caption:= DateTimeToStr(sDate);
  Label2.Caption:= DateTimeToStr(nDate);
end;