定义1：WeekOfTheMonth(AValue: TDateTime): Integer;
说明：返回由参数AValue指定的时间是处于当月的第几个周。
注意：使用了ISO8601标准，这意味着可能指定的时间所处的周不属于当前月份，那么返回的将是相对与其他月份的周数。如果当月1号是周四及周四之前，则本周会纳入本月，即本周是本月的第一周，如果当月1号是周四之后，比如是周五，则还属于上月的周期内，即为上月的最后一周。
参数：
AValue：TDateTime类型，日期时间
返回：整数，值域是[1，6]
范例：
month:=weekOfTheMonth(strtodatetime('2011-01-22'));
return month;//输出: 3
定义2：WeekOfTheMonth(AValue: TDateTime; var AYear, AMonth: Integer): Integer;
说明：返回由参数AValue指定的时间是处于当月的第几个周。
注意：使用了ISO8601标准，这意味着可能指定的时间所处的周不属于当前月份，那么返回的将是相对与其他月份的周数，通过参数Ayear，Amonth将所属的年份和月份返回
参数：
AValue：日期类型，日期
AYear：整数，年，返回值
AMonth：整数，月，返回值
返回：整数，值域是[1，6]
范例：
week:=WeekOfTheMonth(strtodatetime('2011-01-22'),2011,1);
return week; //输出: 3
参考：
TDateTime，
DayOfTheMonth，
HourOfTheMonth，
MinuteOfTheMonth，
SecondOfTheMonth，
MilliSecondOfTheMonth