关于时间函数,请教高手~~~~~~

Question

用什么函数可以截取DELPHI的系统时间不要毫秒,就只要小时,分钟,秒,HH:MM:SS
这样的结构.另外,我遇到个奇怪的问题,两个时间做比较,一个是从C++的DLL中取得的,另外个
是用DELPHI取得的系统时间,都是定义的TDATETIME,可是比较不出来,我跟踪的结
果是DLL取得是时间显示的是23856.613613这样的数据,系统时间显示的是0.6543
165这样的数据,2个时间保证是同一时间,就是不知道怎么显示的浮点数不一致呢?
有没有人也遇到过这样的情况呢?

Answer 1

1. FormatDateTime('HH:MM:SS', ADateTime)2. 如果真是同一时间,且都是TDateTime类型的话,不应该出现这种情况。

Answer 2

1.引用SysUtils单元，有一个时间分解过程DecodeTime(Time:TDateTime;var Hour,Min,Sec,MSec:Word);该过程将Time参数指定的时间拆分成时、分、秒、毫秒。
例：
var T:TTime;
    h,m,s,ms:word;
begin
  T:=time;
  DecodeTime(T,h,m,s,ms);
end;
那么h,m,s,ms就是你想要的时、分、秒、毫秒对应的整数值。