Pergunta : Tempo do converso do EST ao localtime

Olá!, o

I encontrou esta função: SystemTimeToTzSpecificLocalTime a ser usado para converter o tempo do outro timezone a seu problema local de time.

The é mim gostaria de converter o tempo do EST a minhas horas locais e eu não sei encher o parâmetro do lpTimeZoneInformation. Eu vi em um exemplo que era nada ao converter do UTC a localtime.

Does qualquer um sabe encher este parâmetro? class= do

Resposta : Tempo do converso do EST ao localtime

Você pode simplesmente usar a mesma função que adiciona a diferença das horas entre o EST e o UTC

Deixar-nos dizer que o EST é UTC menos 5 então que você poderia usar qualquer outra coisa semelhante

Usos
DateUtils;

{adicionar um TDateTimePicker ao formulário}

procedimento TForm1.Button1Click (remetente: TObject);
var
  ESTTime: TDateTime;
  função ESTToSystemTime (EST: TDateTime): TDateTime;
  var
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime, LocalTime: TSystemTime;
  começar
    EST: = IncHour (EST, -5);
    se GetTimeZoneInformation (TimeZoneInf) <�>    começa
      DatetimetoSystemTime (EST, ESTTime);
      se SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) então
      começar
        resultado: = SystemTimeToDateTime (LocalTime);
      extremidade
      mais
        resultado: = EST;
    extremidade
    mais
      resultado: = EST;
  extremidade;

começar
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
extremidade;