[重分求助]日期转换问题~如何由当前的周次得到这个周的起始日期？？

Question

这是个日期转换问题~
现在我想求2004年某一周公司的某一统计报表，
例如：想求2004年第4周的财务报表，
2004第4周即2004-01-19~2004-01-25日
那么如何由当前的周次得到这个周的起始日期？？
请教各位大虾了！最好是一个函数就能解决的注：通过weekof(now:Tdatetime)word可取得当前日期的周次
通过dayofweek(now:Tdatetime)word可取得当前周的星期
求与这两个函数相反的函数

Answer 1

function StartOfTheWeek(const AValue: TDateTime): TDateTime;

Answer 2

result := StartOfTheWeek (WeekofTheYear (now));

Answer 3

TO：syl79() 
    谢谢你的帮助~
    但好像这个函数解决不了问题，我现在已知的是年份（例2004，2046等）和周次（如第2周，第51周等 53>=周次>=1）
     再次感谢~！

Answer 4

EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime; ADayOfWeek: 
  DayMonday = 1;
  DayTuesday = 2;
  DayWednesday = 3;
  DayThursday = 4;
  DayFriday = 5;
  DaySaturday = 6;
  DaySunday = 7;DateTostr(EncodeDateWeek(2005, 2, DayMonday )