Формат даты.

← →
Ш-К (2005-01-31 16:12) [0]

Как перевести TDateTime в стринг формата ISO 8601 (2005-01-26T00:08:00.000)?
И обратно.

← →
Eraser © (2005-01-31 16:14) [1]

Как преревести в string знаю, а в стринг формата ISO 8601 (2005-01-26T00:08:00.000) нет.

← →
Ш-К (2005-01-31 16:19) [2]

В ISO 8601 пока перевожу руками:

function DateTimeToStrXML(aDate: TDateTime): string; var Year, Month, Day, Hour, Min, Sec, MSec: Word; begin try DecodeDate(aDate, Year, Month, Day); DecodeTime(aDate, Hour, Min, Sec, MSec); Result := Format("%4d-%2d-%2dT%2d:%2d:%2d", [Year, Month, Day, Hour, Min, Sec]); Result := StringReplace(Result, " ", "0", [rfReplaceAll]); except Result := "null"; end; end;

А обратно как, тоже руками?
Может есть стандартные функции?

← →
REA (2005-01-31 17:16) [3]

FormatDateTime еще есть - это туда, а обратно почти руками: заменить в строке "-" на текущий разделитель даты, T на пробел и т.п. и потом StrToDateTime.

Формат даты. Найти похожие ветки