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

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;

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;