请教delphi中有没有求得当前日期是该年中的第多少个周的函数

请问delphi中有没有求得当前日期是该年中的第多少个周的函数?
如输入日期：2007年6月30日,得到结果是：第26周

谢谢。

------解决方案--------------------
有
uses DateUtils

function WeekOf(const Avalue: TDateTime): Word;

描述：
根据TDateTime类型的日期时间参数AValu，WeekOf函数会得到该星期为一年的第几个
星期。

function WeeksInAYear(const AYear: Word): Word;

描述：
WeeksInAYear 函数根据年份得到在该年份中共包含多少个星期。