请问delphi中有没有求得当前日期是该年中的第多少个周的函数?
如输入日期：2007年6月30日,得到结果是：第26周
谢谢。
[解决办法]
有
uses DateUtils
function WeekOf(const Avalue: TDateTime): Word;
描述：
根据TDateTime类型的日期时间参数AValu，WeekOf函数会得到该星期为一年的第几个
星期。
function WeeksInAYear(const AYear: Word): Word;
描述：
WeeksInAYear 函数根据年份得到在该年份中共包含多少个星期。