Fråga : Omvändtid från EST till localtime

Hi har

I funnit denna fungerar: SystemTimeToTzSpecificLocalTime som är den van vid omvänden som, tid från annan timezone till ditt problem för lokalen time.

The är mig, skulle något liknande för att konvertera tid från EST till min lokaltid, och jag vet inte hur man fyller lpTimeZoneInformationparametern. Jag har sett i ett exempel som det var noll, när det konverterade från UTC till localtime.

Does, vem som helst vet hur man fyller denna parameter? " klar "

Svar : Omvändtid från EST till localtime

Du kan enkelt använda samma fungerar tillfoga timmeskillnaden mellan EST och UTC

Låt oss något att säga att EST är UTC minus 5 därefter som du kunde använda något något liknande detta

Bruk
DateUtils;

{tillfoga en TDateTimePicker till bilda},

tillvägagångssätt TForm1.Button1Click (avsändare: TObject);
var
  ESTTime: TDateTime;
  fungera ESTToSystemTime (EST: TDateTime): TDateTime;
  var
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime LocalTime: TSystemTime;
  börja
    EST: = IncHour (EST, -5);
    om GetTimeZoneInformation (TimeZoneInf) <�>    börjar
      DatetimetoSystemTime (EST, ESTTime);
      om SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) därefter
      börja
        resultat: = SystemTimeToDateTime (LocalTime);
      avsluta
      annars
        resultat: = EST;
    avsluta
    annars
      resultat: = EST;
  avsluta;

börja
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
avsluta;