uses DateUtils; function WeekOf(const AValue : TDateTime):Word; function WeekOfTheYear(const AValue : TDateTime):Word; function WeekOfTheYear(const AValue : TDateTime; var AYear : Word ):Word;