Pytanie : Konwertyta czas od EST localtime

Cześć,

I znajdować ten funkcja: SystemTimeToTzSpecificLocalTime czas od inny timezone twój miejscowy time.

The problem być i polubić czas od EST mój lokalny czas i I znać dlaczego the lpTimeZoneInformation parametr. I widzieć w przykład ono być zero gdy nawracać od UTC localtime.

Does być znać dlaczego ten parametr?

Odpowiedź : Konwertyta czas od EST localtime

Ty móc po prostu the ten sam funkcja the godzina różnica między EST i UTC

Pozwalać że EST być UTC bez 5 wtedy ty móc móc jak móc

Uses
DateUtils;

{dodawać TDateTimePicker the forma}

procedura TForm1.Button1Click (Nadawca: TObject);
var
  ESTTime: TDateTime;
  funkcja ESTToSystemTime (EST: TDateTime): TDateTime;
  var
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime, LocalTime: TSystemTime;
  zaczynać
    EST: = IncHour (EST, -5);
    jeżeli GetTimeZoneInformation (TimeZoneInf) <�>    zaczynać
      DatetimetoSystemTime (EST, ESTTime);
      jeżeli SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) wtedy
      zaczynać
        rezultat: = SystemTimeToDateTime (LocalTime);
      końcówka
      inny
        rezultat: = EST;
    końcówka
    inny
      rezultat: = EST;
  końcówka;

zaczynać
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
końcówka;