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

Если еще помните, я сделал программу 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. Исходник, если интересно, могу выложить.

Цитата:

---

Сообщение от caro

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

---

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

Цитата:

---

Сообщение от caro

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

---

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

Цитата:

---

Сообщение от caro

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

---

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

Цитата:

---

Сообщение от CityAceE

Стало быть через 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 бит.

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

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

Цитата:

---

Сообщение от Grand

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

---

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

Цитата:

---

Сообщение от Grand

Никто не знает, как дата хранится в 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)

Цитата:

---

Сообщение от elf/2

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 секунды в элементах каталога всегда четные?

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

Цитата:

---

Сообщение от Grand

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

---

Цитата:

---

Сообщение от NovaStorm

Ну да. ...

---

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