Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
ВнизАлгоритм перевода даты из LINUX в DOS формат Найти похожие ветки
← →
McSimm (2002-02-05 11:05) [1]Не совсем понятно, что такое DOS формат, но вот алгоритм для TDateTime: (взято из стандартных функций D6)
const
UnixDateDelta = 25569;
SecsPerDay = 24 * 60 * 60;
function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
Result := Round((AValue - UnixDateDelta) * SecsPerDay);
end;
function UnixToDateTime(const AValue: Int64): TDateTime;
begin
Result := AValue / SecsPerDay + UnixDateDelta;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c