UTC日期和时间任何时区德尔福
问题描述:
使用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;
感谢您的任何帮助。
答
的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
当您调试时,它在哪一行偏离您的期望?如何? –