将TDateTime转换为另一个时区,无论本地时区如何

将TDateTime转换为另一个时区是一个常见的需求，可以使用以下方法进行转换：

使用TTimeZone类进行转换：

TTimeZone类是一个用于处理时区的类，可以使用它来进行时区转换。具体步骤如下：

uses System.TimeSpan, System.DateUtils, System.TimeZone;

var
  LocalTime: TDateTime;
  TimeZone: TTimeZone;
  LocalTimeZone: TTimeZone;
  DestinationTime: TDateTime;
begin
  // 获取本地时间
  LocalTime := Now;

  // 创建目标时区对象
  TimeZone := TTimeZone.Create('Asia/Shanghai');

  // 创建本地时区对象
  LocalTimeZone := TTimeZone.Local;

  // 将本地时间转换为目标时区时间
  DestinationTime := LocalTimeZone.ToUniversalTime(LocalTime).Add(TimeZone.GetUtcOffset(LocalTime));

  // 输出目标时区时间
  Writeln(DestinationTime);
end;

使用Windows API进行转换：

Windows API中提供了一些函数来进行时区转换，例如TzSpecificLocalTimeToSystemTime和SystemTimeToTzSpecificLocalTime等函数。具体步骤如下：

uses Windows, SysUtils;

var
  LocalTime: TDateTime;
  DestinationTime: TDateTime;
  TimeZoneInfo: TTimeZoneInformation;
  SystemTime: TSystemTime;
begin
  // 获取本地时间
  LocalTime := Now;

  // 获取目标时区信息
  GetTimeZoneInformation(TimeZoneInfo);

  // 将本地时间转换为UTC时间
  TzSpecificLocalTimeToSystemTime(nil, nil, LocalTime, SystemTime);

  // 将UTC时间转换为目标时区时间
  SystemTimeToTzSpecificLocalTime(@TimeZoneInfo, SystemTime, SystemTime);

  // 将SystemTime转换为TDateTime
  DestinationTime := EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay) +
                      EncodeTime(SystemTime.wHour, SystemTime.wMinute, SystemTime.wSecond, SystemTime.wMilliseconds);

  // 输出目标时区时间
  Writeln(DestinationTime);
end;

无论本地时区如何，都可以使用以上方法进行时区转换。