TryEncodeDayOfWeekInMonth
简述
跟EncodeDayOfWeekInMonth函数非常类似。根据参数指定的年份Ayear、月份AMonth、周数AnthDayOfWeek、当周天数AdayOfWeek得到一个TDateTime类型值,存到参数AValue中,时间部分置0。函数返回一个真假值,如果给定的参数能够得到合法的日期就返回真,否则返回假
注意,这里的周是必须是完整周,即从周一开始都属于本月的,才能算1周。
与WeekOfTheMonth函数不同,WeekOfTheMonth使用了
ISO8601标准,这意味着只要一个周的四天以上属于某个月,即认定这周是属于这个月的。
TryEncodeDayOfWeekInMonth(AYear; AMonth; ANthDayOfWeek; ADayOfWeek: Integer; Var AValue: TDateTime): Boolean;
名称 | 类型 | 说明 |
---|
AYear | Integer | 整数,年份,定义域[0,9999] |
AMonth | Integer | 整数,月份,定义域[0,12] |
AnthDayOfWeek | Integer | 整数,周数 |
AdayOfWeek | Integer | 整数,当周第几天 |
AValue | TDateTime | 日期类型,组成的日期,返回值 |
返回 | Boolean |
布尔值,表示是否返回有效的日期,1表示有效,0表示无效 |
TryEncodeDayOfWeekInMonth(2013,10,2,1,newtime);
return datetimetostr(newtime) ;
//输出: 2013-10-14
TDateTime