Delphi时间：毫秒

//相关函数:
SysUtils.DateTimeToTimeStamp();
SysUtils.TimeStampToDateTime();

SysUtils.TimeStampToMSecs();
SysUtils.MSecsToTimeStamp();

Windows.GetTickCount;


Windows.GetCurrentTime;　{GetCurrentTime　和　GetTickCount　一样,　是调用了　GetTickCount.}

-----------------------------------------------------------------------------------------------------

TDate、TTime 与 TDateTime 的尺寸是一样的, 互相转换也不会损失数据; 存在的意义也只是便于理解.

比较有意思的是 TTimeStamp 结构:

TTimeStamp　=　record
　Time:　Integer;　　　{　"毫秒"　表示的时间,　自:　0:0:0:0　}
　Date:　Integer;　　　{　"天"　表示的日期,　自:　1/1/0001　}
end;
----------------------------------------------------------------------------------------------------
{TDateTime　与　TTimeStamp　互相转换的例子}
var
　T:　TDateTime;
　TS:　TTimeStamp;
begin
　T　:=　EncodeDateTime(2009,　5,　22,　11,　22,　33,　999);
　TS　:=　DateTimeToTimeStamp(T);

　ShowMessage(IntToStr(TS.Time));　//40953999;　当日已逝去了　40953999　毫秒
　ShowMessage(IntToStr(TS.Date));　//733549;　　自　0001-1-1　的第　733549　天

　T　:=　TimeStampToDateTime(TS);
　ShowMessage(FormatDateTime('yyyy-m-d　h:m:s:z',　T));　//2009-5-22　11:22:33:999
end;