RecodeDay
简述
将参数ADay指定的日期（1至31）替换掉参数AValue中的相应的日期信息，得到的日期类型返回。
注意，如果出现替换日期信息后组成的日期为无效日期，函数将报错。如用30日替换2月28日的日期信息
RecodeDay(AValue: TDateTime; ADay: Integer): TDateTime;
| 名称 | 类型 | 说明 |
|---|
| AValue | TDateTime | 日期类型，日期 |
| ADay | Integer | 整数，日期，定义域[1，31] |
| 返回 | TDateTime |
日期 |
范例一：
try
newTime:=RecodeDay(strtodatetime("2011-08-10"),1);
newTime:=datetostr(newTime);
except
newTime:=0;
end;
returnnewTime; //输出: 2011-08-01
范例二：
try
newTime:=RecodeDay(strtodatetime("2011-02-28"),31);
newTime:=datetostr(newTime);
except
newTime:=0;
end;
returnnewTime; //输出: 0
TDateTime