Cuestión : Tiempo del convertido del EST al localtime

Hola, el

I ha encontrado esta función: SystemTimeToTzSpecificLocalTime que se utilizará para convertir tiempo del otro timezone a su problema local de time.

The es yo quisiera convertir tiempo del EST a mi hora local y no sé llenar el parámetro del lpTimeZoneInformation. ¿He visto en un ejemplo que era nada al convertir del UTC a localtime.

Does cualquiera sabe llenar este parámetro? class= del

Respuesta : Tiempo del convertido del EST al localtime

Usted puede utilizar simplemente la misma función que agrega la diferencia de las horas entre el EST y el UTC

Digamos que el EST es UTC menos 5 entonces que usted podría utilizar algo similar

Aplicaciones
DateUtils;

{agregar un TDateTimePicker a la forma}

procedimiento TForm1.Button1Click (remitente: TObject);
var
  ESTTime: TDateTime;
  función ESTToSystemTime (EST: TDateTime): TDateTime;
  var
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime, LocalTime: TSystemTime;
  comenzar
    EST: = IncHour (EST, -5);
    si GetTimeZoneInformation (TimeZoneInf) <�>    comienza
      DatetimetoSystemTime (EST, ESTTime);
      si SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) entonces
      comenzar
        resultado: = SystemTimeToDateTime (LocalTime);
      extremo
     
        resultado: = EST;
    extremo
   
      resultado: = EST;
  extremo;

comenzar
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
extremo;