| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Формат даты.

Ш-К ©   (2005-01-31 16:12:00) 

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

---

REA   (2005-01-31 17:16:00) [1]

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

---

Ш-К   (2005-01-31 16:19:00) [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;

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

---

Eraser   (2005-01-31 16:14:00) [3]

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

---

Наверх