CompareTime
简述
比较A和B的时间部分（不考虑日期部分），返回它们的关系
如果A的时间比B的时间早，返回-1
如果A的时间比B的时间晚，返回+1
如果A的时间与B的时间相同，返回0
CompareTime(A; B: TDateTime):Integer;
| 名称 | 类型 | 说明 |
|---|
| A | TDateTime | 日期时间类型，日期时间 |
| B | TDateTime | 日期时间类型，日期时间 |
| 返回 | Integer |
整数。 |
result:=CompareTime(strtodatetime("2011-08-10 01:00:00"),strtodatetime("2011-08-11 01:00:00"));
return result; //输出: 0
TDateTime