如何将 Delphi TDateTime 转换为具有微秒精度的字符串

Question

我需要将TDateTime转换为具有微秒精度的String 。 在毫秒精度的情况下，可以使用格式：

DateTimeToString(Result, 'd.m.yyyy hh:nn:ss.zzz', dateTime);

但我还需要三位数字（微秒）。

可以取小数部分并将其除以 1/86400/1000000，但我正在寻找更有效的方法来转换它。

Answer 1

日期时间的准确性取决于您离“零”有多远。

Delphi TDateTime实际上是一个 8 字节的浮点Double ，零是12/31/1899 12:00:00 am 。

我们可以通过将浮点日期时间增加尽可能小的量子来计算出TDateTime的精度：

function AddQuantumToDateTime(const dt: TDateTime): TDateTime;
var
   overlay: Int64 absolute Result;
begin
   Result := dt;
   overlay := overlay+1;
end;

有了这个，我们可以计算出TDateTime甚至可以处理的最小增量。 它随着使用的日期而变化，因为您离零越远，量子数量就越大：

• 12/31/1899 ：±0 纳秒
• 1900 年 1 月 1 日：±0 纳秒
• 1970 年 1 月 1 日：±314 纳秒
• 2000 年 1 月 1 日：±629 纳秒
• 2016 年 1 月 1 日：±629 纳秒
• 2038 年 1 月 1 日：±629 纳秒
• 1/1/3000 ：±5,029 纳秒
• 1/1/4000 ：±10,058 纳秒
• 1/1/5000 ：±20,117 纳秒
• 1/1/6000 ：±20,117 纳秒
• 1/1/7000 ：±20,117 纳秒
• 1/1/8000 ：±40,233 纳秒
• 1/1/9000 ：±40,233 纳秒
• 1/1/9999 ：±40,233 纳秒

因此，就目前而言，DateTime可以为您提供大约半微秒的分辨率。

虽然 Windows FILETIME结构确实支持 100ns 的分辨率， 但SYSTEMTIME结构只支持到毫秒：

typedef struct _SYSTEMTIME {
  WORD wYear;
  WORD wMonth;
  WORD wDayOfWeek;
  WORD wDay;
  WORD wHour;
  WORD wMinute;
  WORD wSecond;
  WORD wMilliseconds;
} SYSTEMTIME, *PSYSTEMTIME;

Microsoft SQL Server 的新datetime2(7)返回具有多达七位 (100 ns) 的小数秒精度的日期时间字符串：

SELECT CAST('20160802' AS datetime2(6)) AS TheNow

TheNow
==========================
2016-08-02 00:00:00.000000

那么您的问题是如何将TDateTime转换为包含微秒（十亿分之一秒）精度的字符串。 你已经有了答案：

function DateTimeToStrUs(dt: TDatetime): string;
var
    us: string;
begin
    //Spit out most of the result: '20160802 11:34:36.'
    Result := FormatDateTime('yyyymmdd hh":"nn":"ss"."', dt);

    //extract the number of microseconds    
    dt := Frac(dt); //fractional part of day
    dt := dt * 24*60*60; //number of seconds in that day
    us := IntToStr(Round(Frac(dt)*1000000));

    //Add the us integer to the end:
    // '20160801 11:34:36.' + '00' + '123456'
    Result := Result + StringOfChar('0', 6-Length(us)) + us;
end;
  

在哪里：

DateTimeToStrUs(Now)

返回：

20160802 11:34:36.482364