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

[shitianj]

这是个日期转换问题~
现在我想求2004年某一周公司的某一统计报表，
例如：想求2004年第4周的财务报表，
2004第4周即2004-01-19~2004-01-25日
那么如何由当前的周次得到这个周的起始日期？？
请教各位大虾了！最好是一个函数就能解决的

注：通过weekof(now:Tdatetime)word可取得当前日期的周次
通过dayofweek(now:Tdatetime)word可取得当前周的星期
求与这两个函数相反的函数

[sixgj]

存储时就将周次做为一个判断字段存入，用时提取。

[syl79]

function StartOfTheWeek(const AValue: TDateTime): TDateTime;

[beyondtkl]

DateUtils.pas 自己找。

[syl79]

result := StartOfTheWeek (WeekofTheYear (now));

[shitianj]

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

[梅青松]

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 )

[Kshape]

又是这样的逆推
我很菜

[shitianj]

谢谢阿飞!!