时间TDateTime相当于是Double，即双精度数64位，终于查到它用11位表示e，53位表示精度（整数小数一起），最前面一位表示正负

http://docwiki.embarcadero.com/RADStudio/Seattle/en/Internal_Data_Formats

关于Double的RTL函数，好像就一个：TryStrToFloat

function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double; const FormatSettings: TFormatSettings): Boolean; overload;

好在还能按照指定格式转换，运气不错。

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

顺便复习一下absolute关键字的用法：

function DoubleToHex(const d: DOUBLE): string;
var
Overlay: array[1..2] of LongInt absolute d;
begin
try
// "Little Endian" order
RESULT := IntToHex(Overlay[2], 8) + IntToHex(Overlay[1], 8);
except
end;
end

其中API函数FileTimeToSystemTime取来的时间，需要用Delphi提供的SystemTimeToDateTime函数做转换，才能得到Delphi自定义的TDateTime数据（Delphi中的日期则是使用双精度类型进行存储的，整数部分表示距“1899-12-30”的天数，小数部分表示小时。如“2.75”这个数值则表示“1900-1-1 6：00PM”，“-1.25”则表示“1899-12-29 6：00 AM”）

function GetFileTimesUTC(const FileName: string): TDateTime;
var
SystemTime: TSystemTime;
FindData: WIN32_FIND_DATAW;
FindHandle: THandle;
fn: string;
begin
Result := 0;
FindHandle := INVALID_HANDLE_VALUE;

FindHandle := FindFirstFileW(strCheminToUnicode(fn), FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
if FileTimeToSystemTime(FindData.ftLastWriteTime, SystemTime) then
begin
Result := SystemTimeToDateTime(SystemTime);
end;
if FindHandle <> INVALID_HANDLE_VALUE then
Windows.FindClose(FindHandle);
end;

比如这个数：

2014-07-07, 09:31:25 ，经过调试，在Delphi里的TDateTime值是：41827.355157 （小数点前是天数，小数点后是小时）。用例子验证一下天数：

procedure TForm1.Button2Click(Sender: TObject);
var
dd: integer;
hh: Int64;
mydate : TDateTime;
myreal : Double;
begin
dd := 41827;
mydate := EncodeDate(1899, 12, 30);
mydate := mydate + dd;
ShowMessage(FormatDateTime('yyyy-mm-dd', mydate));
end;