Question

我的主题可能非常措辞，但这就是我所拥有的。

我有一个Web服务，它在本地时间报告时间戳，如果服务器在受影响的区域，则时间戳反映日光时间。 Web服务还有第二次调用以UTC格式检索服务器时间，因此太平洋夏令时（PDT）中的服务器将其UTC偏移量报告为-08：00，即使它因PDT而实际上是-07：00。

这是我调用返回服务器时区信息的结果。

太平洋标准时间; -480;（UTC-08：00）太平洋时间（美国和加拿大）;太平洋标准时间;太平洋夏令时; [01：01：0001; 12：31：2006; 60; [ 0; 02：00：00; 4; 1; 0;]; [0; 02：00：00; 10; 5; 0;];] [01：01：2007; 12：31：9999; 60; [ 0; 02：00：00; 3; 2; 0;]; [0; 02：00：00; 11; 1; 0;];];

因此，如果从Web服务返回的时间戳是3/12/2013 12:00 am且UTC偏移量是-08：00，我居住在亚利桑那州的白天时间免除区域，我的UTC偏移量是-07： 00如何将返回的时间戳转换为当地时间？

这里的杀手是使用本地时间戳的Web服务。如果他们只是坚持一种通用格式，我的生活就会轻松。我目前的想法是，如果我可以在TTimeZone或等效结构中获取服务器的信息，那么我可以使用TTimeZone.IsDaylightTime（Timestamp）函数来知道我是否需要在使用-08：00服务器之前从时间戳中减去一个小时offset和-07：00本地偏移量，以获得正确的当地时间。

Answer 1

您可以使用delphi-tzdb。伪代码：

uses
  ..., TZDB;

procedure Main;
var
  ServerTZID: string;
  TZ: TTimeZone;
  Stamp1, Stamp2: TDateTime;
begin
  // 1. retrieve server timezone info
  ServerTZID := ... // MyServer.GetTimezoneInfo; e.g. 'Pacific Standard Time';
  // look up the retrieved timezone
  TZ := TBundledTimeZone.GetTimeZone(ServerTZID); // nil if not found
  // 2. retrieve server timestamp
  Stamp1 := ... // MyServer.RetrieveTimestamp;
  // 3. convert to UTC and back to local timezone
  Stamp2 := TZ.Local.ToLocalTime(TZ.ToUniversalTime(Stamp1));

  Writeln(Format('%s %s -> %s %s', [FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Stamp1),
    TZ.DisplayName, FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Stamp2),
    TZ.Local.DisplayName]));
end;

Delphi - 获取非本地时区的TTimeZone并在时区之间进行转换

1 个答案: