Добрый день!
 Из хелпа известно, что в делфи (а также по стандарту OLE Automation) дата/время хранится в формате вещ. числа, где целая часть - это кол-во дней с 30.12.1899 года, а дробная - время с начала дня.
 "The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is the time of day"

 Я пытаюсь прочитать время из файла, в которм хранится история процесса. Проблема в том, что программисты решили сохранять время в каком то "своем" формате. Пока я не могу определить каким образом декодировать время, поэтому прошу вашей помощи.

 Исходные данные:
переписал из 4-х файлов байты, отвечающие за время:




 Бросается в глаза, что разнице в 2 дня соответствует разница примерно на 2 в байтах 14 и 22, так же заметно, что байты с 16 по 19 это время в мсек.
 Возможно, что байты 12 и 20 не имеют прмого отношения к вопросу.
 Вот собственно все. Очень надеюсь на вашу помощь.

табличка кривовато получилась :(

> Проблема в том, что программисты решили сохранять время
> в каком то "своем" формате


А программистов спросить ?

они все давно "умерли". компании этой практически нет, и жили они в городе Демойн, штат Айова, ЮСА, так что проблематично

> Все данные о времени находятся в следующих 12 байтах


Ничего не понятно ..

Где тут эти самые "следующие 12 байт" ?

левый столбик - порядковый номер байта (байты с 12 по 23), столбцы - 4 разных файла для сравнения.
Собственно, я особо и надеялся на помощь :(

вот первая группа, снизу вверх

49 47 36 FC - 16 дек 2008 05:05:00.000
49 47 7C FC - 16 дек 2008 10:03:40.000
49 4F 20 E4 - 22 дек 2008 05:08:52.000
49 51 AE 5A - 24 дек 2008 03:36:58.000

если это так - то там число секунд от 1.1.1970 - CDate

> igan ©   (24.12.08 13:17) [5]

С 1970 года попробуй оттолкнуться и не в миллисекундах, а в секундах.

494735D0 - 1229403600 - это 38 лет примерно - как раз 2008.

Спасибо, ребята! Сам только что догадался, хотел написать :)
Спасибо, спасибо! Осталось совсем немного! Но уже завтра! :)

> icWasya

А как ты считал, какой функцией? не на калькуляторе же :)

итак:
1) байты с 12 по 15 - это время начала записи, в секундах, с 1.1.1970
но! реально время в первых двух файлах примерно 00:05:00, в 3-м и 4-м около 14 часов.
2) байты с 16 по 19 - это, видимо, дополнительное смещение в мсек.
10:11:50.000 - B4 EC 83 00
10:11:52.000 - 84 F4 83 00
10:11:54.000 - 54 FC 83 00
только непонятно, почему не с 0 начинается счет.

3) байты с 20 по 23 - должно быть время окончания записи. (аналогично 1 пункту)

Если все это так, дело осталось за методом перевода из "секунд с 1.1.1970" в нормальную дату. icWasya, как ты переводил?
Спасибо за помощь!!!

DateUtils.UnixToDateTime

>igan ©   (25.12.08 07:34) [9]

Это Юниксэпох все. Смотри их форматы.

Ого! Правда, в D3 нет такого, но ничего, нашел в D6. Спасибо!

Еще раз спасибо! :)