Delphi NOW 函数的结果如何受“调整时钟以进行夏令时更改”选项的影响

Question

我意识到这个问题可以通过编写一些测试代码来回答。我不是懒惰，我只是认为答案可能一般有用。

我有一个应用程序生成了大量数据，其中记录了本地时间（由 NOW 例程返回）。我们遇到了夏令时进出转换的障碍 - 即当我们更改为 DST 时缺少一个小时，而当我们退出 DST 时又重复了一个小时。这会导致假定日期有序记录的操作出现问题。

因此，该应用程序已更改为使用 UTC 中的所有日期时间，但我将能够以 UTC 或本地时间显示日期时间。我还必须处理存储在本地时间的日期时间，并确保它们正确地转换为 UTC。这很棘手，因为日期时间可能在 DST 生效时已存储，因此在一般情况下，我需要能够确定任何随机日期是否在 DST 期间内或之外。当然，在一个小时的时间段内，日期时间是不明确的，可能是夏令时结束前的最后一小时，也可能是夏令时结束后的第一个小时。没有办法解决这个问题。

在对更改进行编码时，我想知道 NOW 调用的结果。它在内部调用 GetLocalTime。当您处于 DST 期间时，GetLocalTime（和 NOW）会返回什么，但“调整时钟以适应夏令时更改”的选项已关闭？

无论“为夏令时调整时钟”是关闭还是打开，我如何编写一个返回 DST 期间内的当前日期时间（应用 DST 偏差）的例程？

Answer 1

我认为你不能轻易解决你的问题。
变量太多：

• 存储的时间戳
• 您所在的时区
• 不断变化的时区规则
• 确认这些时区规则在您使用的所有设备上都是准确的（即每个人都总是应用他们的补丁）
• 你的时钟不准确

有一个Delphi TZDB project可以帮助您了解时区规则。

我觉得不依赖上述所有变量，而是存储三个字段会实用得多：

• 本地格式的时间戳
• 当前时区
• UTC 格式的时间戳

您对第三个字段执行排序，前两个字段用于显示。

--杰罗恩

Answer 2

使用TzSpecificLocalTimeToSystemTime（及其明显的反义词）。这些允许您根据在本地日期/时间生效的夏令时设置在 UTC 和本地日期/时间之间进行转换。如果您希望您的应用在 XP 之前的任何设备上运行，请使用 'delayed' 函数属性（从 kernel32 加载）：

function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation;
  var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall;

function TzSpecificLocalTimeToSystemTime; external kernel32 name 'TzSpecificLocalTimeToSystemTime' delayed;