引言: 用 DayOfWeek 即可, 參考: http://delphi.ktop.com.tw/topic.php?topic_id=37227 --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica">

// 此 function 回傳指定年(AYear)的指定週(AWeekNo)的第一天
function GetSpecifiedWeekFirstDayOfYear(AYear, AWeekNo: integer): TDate;
var dt: TDate;
begin
  dt := EncodeDate(AYear, 1, 1); // 取得 AYear 第一天
  AWeekNo := AWeekNo - 1;
  case DayOfWeek(dt) of // AYear 的第一天是週幾
    1: Result := dt   AWeekNo * 7; // Sunday
    2: Result := (dt - 1)   AWeekNo * 7; // Mon
    3: Result := (dt - 2)   AWeekNo * 7; // Tue
    4: Result := (dt - 3)   AWeekNo * 7; // Wed
    5: Result := (dt - 4)   AWeekNo * 7; // Thu
    6: Result := (dt - 5)   AWeekNo * 7; // Fri
    7: Result := (dt - 6)   AWeekNo * 7; // Sat
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
var dt: TDate;
begin
  dt := GetSpecifiedWeekFirstDayOfYear(2003, 40);
  ShowMessage('2003 年第 40 週的第一天是 '   DateToStr(dt));
  ShowMessage('2003 年第 40 週的最後一天是 '   DateToStr(dt 6));
end;