DirSys - система каталогов для TR-DOS

[caro]

Если еще помните, я сделал программу INTIME, которая запрашивает время из Интернета.
Время возвращается в виде четырех-байтного числа, так называемого <Unix time>.
А вот как оно пробразуется в дату:

------------------------------------------------------------
:  Как преобразовать unix time в TDateTime
------------------------------------------------------------
unix timestamp представляет собой число секунд начиная с 1.01.1970

const
  SecPerDay  = 86400;
  Offset1970 = 25569;

function UnixTimeToDateTime(UnixTime : LongInt): TDate;
begin
  Result := UnixTime / SecPerDay + Offset1970;
end;

function DateTimeToUnixTime(DelphiDate : TDate) : LongInt;
begin
  Result := Trunc((DelphiDate - Offset1970) * SecPerDay);
end;


function UnixToDateTime(const AValue: Int64): TDateTime;
Const HoursPerDay   = 24;
      MinsPerDay    = HoursPerDay * 60;
      SecsPerDay    = MinsPerDay * 60;
      UnixDateDelta = 25569;
begin
  Result := AValue / SecsPerDay + UnixDateDelta;
end;

Я естественно писал на ассемблере, и заняла такая процедура не более полу-килобайта.

PS. Этот текст из FAQ для Unix.
На самом деле в интернете время с тайм-серверов возвращается как число секунд от 1.01.1900 года.

PSS. Исходник, если интересно, могу выложить.

[Grand]

PSS. Исходник, если интересно, могу выложить.

Конечно, было бы интересно посмотреть. Мне такие задачи решать не приходилось...

[CityAceE]

На самом деле в интернете время с тайм-серверов возвращается как число секунд от 1.01.1900 года.

Стало быть через 29 лет, то есть в 2037-м году, эту перестанет работать

Исходник, если интересно, могу выложить.

Кнечно же, очень интересно!

[caro]

Стало быть через 29 лет, то есть в 2037-м году, эту перестанет работать

Вот что об этом пишут в RFC 1305 (Network Time Protocol):

Note that since some time in 1968 the most significant bit (bit 0 of the integer part) has been set 
and that the 64-bit field will overflow some time in 2036.
Should NTP be in use in 2036, some external means will be necessary to qualify time relative to 1900 
and time relative to 2036 (and other multiples of 136 years).

Тоесть это надо будет учесть после переполнения счетчика.
Кстати счетчик, как вы наверное заметили 64-х битный, но NTP предусматривает пересылку только старших 32 бит.

[Grand]

Процедуры не маленькие... А еще ведь в командере придётся предусмотреть и обратную конвертацию.

Никто не знает, как дата хранится в IS-DOS?

[CityAceE]

А еще ведь в командере придётся предусмотреть и обратную конвертацию.

Да, я тоже сразу об этом подумал. Видимо такой способ не годится - слишком много кода получается.

[elf/2]

Никто не знает, как дата хранится в IS-DOS?

так же как на ФАТе:

wFatDate [in]
The MS-DOS date. The date is a packed value with the following format.

Bits Description
0-4 Day of the month (1–31)
5-8 Month (1 = January, 2 = February, and so on)
9-15 Year offset from 1980 (add 1980 to get actual year)

wFatTime [in]
The MS-DOS time. The time is a packed value with the following format.

Bits Description
0-4 Second divided by 2
5-10 Minute (0–59)
11-15 Hour (0–23 on a 24-hour clock)

[Grand]

Bits Description
0-4 Second divided by 2
5-10 Minute (0–59)
11-15 Hour (0–23 on a 24-hour clock)

Что же получается - в MS-DOS секунды в элементах каталога всегда четные?

[NovaStorm]

Ну да. Даже на ntfs оно будет чётным если не пользоваться другими ф-циями api для миллисекундной точности.
О, сколько нам открытий чудных... =)

[Grand]

в MS-DOS секунды ... четные?

Ну да. ...

CityAceE, может быть и нам это взять на вооружение? А сэкономленный бит можно зарезервировать, или сделать, чтобы он отвечал, например, файл "read only".