SameTime
简述
判断A和B的时间部分是否相等（不考虑日期部分），如果相等，返回真，否则返回假。
注意：有可能两个TDateTime从数字上看是不相等的，但是他们实际代表同一时间，例如在微秒极的小数是没有意义的。
SameTime(A; B: TDateTime): Boolean;
| 名称 | 类型 | 说明 |
|---|
| A | TDateTime | 日期时间类型，日期时间 |
| B | TDateTime | 日期时间类型，日期时间 |
| 返回 | Boolean |
布尔值，相等则返回真，否则返回假。 |
result:=SameTime(strtodatetime("2011-08-10 01:00:00"),strtodatetime("2011-08-11 01:00:00"));
return result; //输出: 1
TDateTime