Текущий архив: 2005.02.13;
Скачать: 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 вся ветка
Текущий архив: 2005.02.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.027 c