Вопрос : Время новообращенного от EST к localtime

Hi,

I находило эту функцию: SystemTimeToTzSpecificLocalTime, котор нужно использовать для того чтобы преобразовать время от другого часовойа пояс к вашей местной проблеме time.

The будет мной хотел было бы преобразовать время от EST к моему местному времени и я не умею как заполнить параметр lpTimeZoneInformation. Я видел в примере, котор было нолем преобразовывая от UTC к localtime.

Does кто-нибудь умеет как заполнить этот параметр? class=

Ответ : Время новообращенного от EST к localtime

Вы можете просто использовать такую же функцию добавляя разницу в часов между EST и UTC

Препятствуйте нам сказать что EST будет UTC без 5 после этого, котор вы smogли использовать что-нибудь подобное

Пользы
DateUtils;

{добавьте TDateTimePicker к форме}

процедура TForm1.Button1Click (прислужник: TObject);
var
  ESTTime: TDateTime;
  функция ESTToSystemTime (EST: TDateTime): TDateTime;
  var
    TimeZoneInf: _TIME_ZONE_INFORMATION;
    ESTTime, LocalTime: TSystemTime;
  начните
    EST: = IncHour (EST, -5);
    если GetTimeZoneInformation (TimeZoneInf) <�>    начинает
      DatetimetoSystemTime (EST, ESTTime);
      если SystemTimeToTzSpecificLocalTime (@TimeZoneInf, ESTTime, LocalTime) после этого
      начните
        результат: = SystemTimeToDateTime (LocalTime);
      конец
      еще
        результат: = EST;
    конец
    еще
      результат: = EST;
  конец;

начните
  ESTTime: = ESTToSystemTime (DateTimePicker1.DateTime);
конец;