TryRecodeDateTime
简述
本函数同RecodeDateTime函数非常类似。将参数Ayear、Amonth、Aday、 AHour、AMinute、Asecond、AMilliSecond分别指定年份、月份、日期、小时、分钟、秒钟、毫秒替换掉参数AValue中的相应的年份、月份、日期、小时、分钟、秒钟、毫秒信息,并将新的TDateTime类型时间存到参数Aresult中。对于不需改变的变量,可以设置为65535(最大的WORD类型值),来告诉函数此参数对应的响应时间部分不需替换
如果给定的时间有效且生成的新时间有效,函数返回真,否则返回假
TryRecodeDateTime(AValue: TDateTime; AYear; AMonth; ADay; AHour; AMinute; ASecond; AMilliSecond: Integer; Var AResult: TDateTime): Boolean;
名称 | 类型 | 说明 |
---|
AValue | TDateTime | 日期时间类型,被替换的日期时间 |
AYear | Integer | 整数,年份,定义域[0,9999] |
AMonth | Integer | 整数,月份,定义域[0,12] |
ADay | Integer | 整数,日期,定义域[0,12],并且要使Ayear、Amonth、Aday组成的时间有效 |
AHour | Integer | 整数,小时,定义域[0,24] |
AMinute | Integer | 整数,分钟,定义域[0,59] |
ASecond | Integer | 整数,秒钟,定义域[0,59] |
AmilliSecond | Integer | 整数,毫秒,定义域[0,999] |
Aresult | TDateTime | 日期时间类型,替换后的日期时间 |
返回 | Boolean |
布尔,生成的日期有效则返回1,否则返回0 |
TryRecodeDateTime(strtodatetime("2011-08-10 12:12:12.999"),2010,8,10,10,8,9,100,Aresult);
return datetimetostr(Aresult); //输出: 2010-08-10 10:08:09
TDateTime