Скачать: CL | DM;

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

← →
Ш-К   (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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c