如何得到一年中某一周的星期一和星期天日期？

Question

如何得到一年中某一周的星期一和星期天日期？var ThisYear,ThisWeek:integer;...
thisyear:=Yearof(datetime);
thisweek:=weekof(datetime);如何根据thisyear和thisweek求出的星期一和星期天日期？

Answer 1

你可以找个参照的时间
如2004-07-05（星期一）那你要的时间减参照的时间
取磨mod 向后加
就知道了

Answer 2

你可以找个参照的时间
如2004-07-05（星期一）那你要的时间减参照的时间
除7 
取磨mod 
向后加
就知道了

Answer 3

使用函数DayOfTheWeek(Datetime) 可求出指定的时间
是星期几

Answer 4

可以呀
function getyourdate(thisyear:integer,thisweek:integer):date;
var
  nowweek,nowweekday:integer;
  thisday,yourdate: date;
begin
  thisday:=strtodate(inttostr(thisyear)+'年5月1日');
  nowweek:=Weekof(thisday);
  nowweekday:=dayofweek(thisday);//星期天为1，星期六为7；
  yourdate:=thisday+(thisweek-nowweek)*7-nowweekday-1;
  Result:=yourday          //返回星期天的日期
end;在得到星期天的日期后，只需+1就是星期一的日期了
  
  end;

Answer 5

function TForm1.getyourdate(thisyear, thisweek: integer): Tdate;
var
  nowweek,nowweekday:integer;
  thisday,yourdate: Tdate;
begin
  thisday:=strtodate(inttostr(thisyear)+'-5-1');
  nowweek:=Weekof(thisday);
  nowweekday:=dayofweek(thisday);//星期天为1，星期六为7；
  yourdate:=thisday+(thisweek-nowweek)*7-nowweekday+2;
  Result:=yourdate;          //返回星期1的日期
end;
这样对了。。