UTC日期和时间任何时区德尔福

-1

使用Delphi XE6。我需要能够将UTC日期和时间转换为任何美国时区。现在，我在我的数据库中使用UTC的所有日期时间加上每个时区用户的数字。像EST一样5。UTC日期和时间任何时区德尔福

我有这个，但它总是让我回到同一时间，无论夏令时。

function SendRouteOnCallNotify.GetMyLocalTime(UTCDate,UTCTime: TDateTime; HoursToAdd: Integer): TDateTime; 
var 
    T: TSystemTime; 
    TZ: TTimeZoneInformation; 
    DT: TDateTime; 
begin 
    // Get Current time in UTC 
    //GetSystemTime(T); 
    ReplaceTime(UTCDate,UTCTime); 
    DateTimeToSystemTime(UTCDate,T); 
    // Setup Timezone Information for Eastern Time 
    TZ.Bias:= 0; 

    // DST ends at First Sunday in November at 2am 
    TZ.StandardBias:= (HoursToAdd * 60); 
    TZ.StandardDate.wYear:= 0; 
    TZ.StandardDate.wMonth:= 11; // November 
    TZ.StandardDate.wDay:= 1; // First 
    TZ.StandardDate.wDayOfWeek:= 0; // Sunday 
    TZ.StandardDate.wHour:= 2; 
    TZ.StandardDate.wMinute:= 0; 
    TZ.StandardDate.wSecond:= 0; 
    TZ.StandardDate.wMilliseconds:= 0; 

    // DST starts at Second Sunday in March at 2am 
    TZ.DaylightBias:= (HoursToAdd * 60); 
    TZ.DaylightDate.wYear:= 0; 
    TZ.DaylightDate.wMonth:= 3; // March 
    TZ.DaylightDate.wDay:= 2; // Second 
    TZ.DaylightDate.wDayOfWeek:= 0; // Sunday 
    TZ.DaylightDate.wHour:= 2; 
    TZ.DaylightDate.wMinute:= 0; 
    TZ.DaylightDate.wSecond:= 0; 
    TZ.DaylightDate.wMilliseconds:= 0; 

    // Convert UTC to Eastern Time 
    Win32Check(SystemTimeToTzSpecificLocalTime(@TZ, T, T)); 

    // Convert to and return as TDateTime 
    Result := EncodeDate(T.wYear, T.wMonth, T.wDay) + 
    EncodeTime(T.wHour, T.wMinute, T.wSecond, T.wMilliSeconds); 
end;

感谢您的任何帮助。

来源

2017-09-24 Kim HJ

当您调试时，它在哪一行偏离您的期望？如何？ –

的MSDN Documentation解释TIME_ZONE_INFORMATION结构（略）的有趣的领域：

的TTimeZoneInformation记录有3场调整相关标准时间和夏令时（DST），以UTC：Bias，StandardBias和DaylightBias。这些的正常用法是：

Bias保持UTC和本地（标准）时间之间的分钟差异。
StandardBias在标准时间内保持分钟数来调整偏差。这通常是零。
DaylightBias保存分钟数并将其添加到Bias字段以形成DST期间使用的总偏差。通常这是-60。

在你的情况，当你有Bias字段设置为0，并用小时数（从DB）调整StandardBias和DaylightBias领域仍然需要调整DaylightBias的额外60分钟，F。恩。

TZ.StandardBias:= (HoursToAdd * 60); 

TZ.DaylightBias:= ((HoursToAdd-1) * 60); // note the -1 hour

来源

2017-09-24 22:50:17

UTC日期和时间任何时区德尔福

回答

相关问题