100分求助！！一个学期初始化的问题。。

Question

那位明白的大哥告诉我怎么实现学期初始化：
就是在时间控件里面选择一个开学日期，然后确定。执行的结果是：
把数据库中的一个关于课程安排的数据表中的日期和星期都初始化，
我的意思也就是说把选择的日期作为第一周的星期一。
例如：
05-5-30    =     第一周星期一
05-5-31    =     第一周星期二
             
05-6-6     =     第二周星期一
             
如何实现这个功能啊！！我是超级菜鸟哦麻烦大哥帮忙了

Answer 1

我没建函数 哦。。呵呵。很菜吧
我邮箱[email protected]
楼上上的大哥有原码吗。。期待啊

Answer 2

DecodeDateWeek 获得日期的年周次和星期几

Answer 3

整个过程就需要判断下月份就行了，decodedate可以用下
就是个数字模7的运算了

Answer 4

不一定要结束把。。
帮忙说一下这个怎么用。。
procedure DecodeDateWeek(const AValue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);描述：
DecodeDateWeek方法根据TDateTime类型参数AValue 得到相应的年份、在该年中的第几个星期、星期几。
能用这个解决我的问题吗？最好给个代码做范例说明

Answer 5

帮忙说一下这个怎么用。。
procedure DecodeDateWeek(const AValue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);描述：
DecodeDateWeek方法根据TDateTime类型参数AValue 得到相应的年份、在该年中的第几个星期、星期几。

Answer 6

function WeekofYear(Date: TDate): integer; 
varFirstDay, FirstWeekEnd, NowWeekEnd: TDate;Year, Month, Day: word;beginDecodeDate(Date, Year, Month, Day);FirstDay := EncodeDate(Year, 1, 1);FirstWeekEnd := FirstDay + 7 - DayofWeek(FirstDay);NowWeekEnd := Date + 7 - DayofWeek(Date);Result := Round(NowWeekEnd - FirstWeekEnd) div 7 + 1;end;
你试试看