Vraag : Zet tijd van EST in localtime om

Hallo, heeft

I deze functie gevonden: SystemTimeToTzSpecificLocalTime dat om tijd van andere timezone in uw lokaal probleem time.

The moet worden gebruikt om te zetten is ik zou willen tijd van EST in mijn lokale tijd omzetten en ik weet niet het hoe te om de lpTimeZoneInformationparameter te vullen. Ik heb in een voorbeeld gezien het nul toen het omzetten van UTC in localtime.

Does was om het even wie het weet hoe te om deze parameter te vullen?

Antwoord : Zet tijd van EST in localtime om

U kunt de zelfde functie eenvoudig gebruiken toevoegend het urenverschil tussen EST en UTC

Zeg dat EST UTC min 5 is toen u iets in die aard kon gebruiken

Gebruik
DateUtils;

{voeg een TDateTimePicker aan de vorm toe}

procedure TForm1.Button1Click (Afzender: TObject);
var
  ESTTime: TDateTime;
  functie ESTToSystemTime (EST: TDateTime): TDateTime;
  var
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime, LocalTime: TSystemTime;
  begin
    EST: = IncHour (EST, -5);
    als GetTimeZoneInformation (TimeZoneInf) <�>    begint
      DatetimetoSystemTime (EST, ESTTime);
      als SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) toen
      begin
        resultaat: = SystemTimeToDateTime (LocalTime);
      eind
      anders
        resultaat: = EST;
    eind
    anders
      resultaat: = EST;
  eind;

begin
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
eind;