Преобразовать США TDateTime значения правильно dispay в европейском формате

Question

Есть ли простой вариант, чтобы преобразовать TDateTime значения США 17 апреля 2014 8:35:38 PM PDT в европейский формат выглядит как 2014-04-17 20 : 35: 38?

EDIT:

У меня есть строка, содержащая необработанный дату/время в формате США:

var s, new_s: string; 
begin 
    s := 'Apr 17, 2014 8:35:38 PM PDT'; 

Я хочу, чтобы как-то прочитать/разобрать эту строку в переменную типа TDateTime-или- просто преобразовать его в другую строку нужного формата:

new_s := MyConvertDateTimeSring(s); 
    // now new_s must be '2014-04-17 20:35:38'; 
end; 

(Delphi xe4)

Answer 1

Если удалить TimeZone PDT из строки, то вы можете использовать VarToDateTime, чтобы преобразовать строку в значение

var 
    LDateTimeStr : string; 
    LDateTime : TDateTime; 
begin 
    LDateTimeStr := 'Apr 17, 2014 8:35:38 PM PDT'; 
    LDateTime := VarToDateTime(Copy(LDateTimeStr, 1, 23)); 
    WriteLn(FormatDateTime('yyyy-mm-dd hh:nn:ss', LDateTime)); 
end; 

TDateTime Результат будет

2014-04-17 20 : 35: 38