RecodeHour
简述
将参数AHour指定的小时（0至24）替换掉参数AValue中的相应的日期信息，得到的日期时间返回。
RecodeHour(AValue: TDateTime; AHour: Integer): TDateTime;
| 名称 | 类型 | 说明 |
|---|
| AValue | TDateTime | 日期时间类型，日期时间 |
| AHour | Integer | 整数，小时，定义域[0，24] |
| 返回 | TDateTime |
日期时间 |
newTime:=RecodeHour(strtodatetime("2011-08-10 12:12:12"),1);
return datetimetostr(newTime); //输出: 2011-08-10 01:12:12
TDateTime