Questione : Tempo del convertito dal EST a localtime

Ciao, il

I ha trovato questa funzione: SystemTimeToTzSpecificLocalTime da usare per convertire il tempo dall'altro timezone in vostro problema locale di time.

The è io vorrebbe convertire il tempo dal EST in mia ora locale e non so riempire il parametro di lpTimeZoneInformation. Ho veduto in un esempio che era zero quando converte dal UTC in localtime.

Does qualcuno sa riempire questo parametro? class= del

Risposta : Tempo del convertito dal EST a localtime

Potete usare semplicemente la stessa funzione che aggiunge la differenza di ore fra il EST ed il UTC

Diciamo che il EST è UTC meno 5 allora che potreste usare qualcosa di simile

Usi
DateUtils;

{aggiungere un TDateTimePicker alla forma}

procedura TForm1.Button1Click (mittente: TObject);
varietà
  ESTTime: TDateTime;
  funzione ESTToSystemTime (EST: TDateTime): TDateTime;
  varietà
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime, LocalTime: TSystemTime;
  cominciare
    EST: = IncHour (EST, -5);
    se GetTimeZoneInformation (TimeZoneInf) <�>    comincia
      DatetimetoSystemTime (EST, ESTTime);
      se SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) allora
      cominciare
        risultato: = SystemTimeToDateTime (LocalTime);
      estremità
      altrimenti
        risultato: = EST;
    estremità
    altrimenti
      risultato: = EST;
  estremità;

cominciare
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
estremità;