RecodeYear
简述
将参数Ayear指定的年份替换掉参数 AValue中的相应的年份信息，得到的日期类型返回
注意，如果出现用平年的年份替换闰年2月29日的年份信息，函数将报错。
RecodeYear(AValue: TDateTime; AYear: Integer): TDateTime;
| 名称 | 类型 | 说明 |
|---|
| AValue | TDateTime | 日期类型，日期 |
| AYear | Integer | 整数，年份 |
| 返回 | TDateTime |
日期 |
范例一：
newTime:=RecodeYear(strtoDatetime("2010-08-01"),2009);
return datetimetostr(newTime); //输出: 2009-08-01
范例二：
//用try...except...end语句进行异常处理，如果无法替换成有效的日期，则把NewTime设置为0.
try
newTime:=RecodeYear(strtoDatetime("2012-02-29"),2013);
except
newTime:=0;
end;
return newTime; //输出: 0
TDateTime