формат упакованного времени в DELPHI

[Format C:]

А не проще использовать функцию EncodeDateTime, объявленную в DateUtils?

[BOBAH13]

Если запуск был в среде дельфи, то конечно вы получите "поворот-отворот", скомпильте ехе и запустите его...

[dimonbest]

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

Если запуск был в среде дельфи, то конечно вы получите "поворот-отворот", скомпильте ехе и запустите его...

Спасибо, попробую сейчас. А почемуесли в среде делфи то все равно ошибка? Как тогда отлаживать:Копилить ехешник и запускать?
Хочется решить проблему все таки с помощью IF.
Вот когда возникает проблема:

TD(D).A=(55 0 0 0 0 32 193 116)
decodeDate(D, Y1, M1, D1);       // 2008 2 8

Вот при таком знакчении переменной TDateTime оно и выдает ошибку.
Почемуне нравится такое значение, что в немнеправильно?

[dimonbest]

Сообщение от Format C:

А не проще использовать функцию EncodeDateTime, объявленную в DateUtils?

Мне сейчасвсенепросто использовать, делфи изучаю недолго, а эту штукунадо написать срочно...

[dimonbest]

Уже со всем разобрался, кроме этого:

РTD(D).A=(55 0 0 0 0 32 193 116)   
decodeDate(D, Y1, M1, D1);       // 2008 2 8

Почему здесь ошибка?
Подскажите, пожалуйста...

[B_N]

Массивы через запятые инициализируются. Причем, если не ошибаюсь, не всякие, а только статические. И Вы уверены, что массив нужен как таковой?

[alexBlack]

При таких значениях D как Double имеет значение ~2.5e+254, что не переводимо в дату. Нужно ограничить диапазон
например
01/01/1980 = 29221
01/01/2100 = 73051

перед тем как вызвать decodeDate проверяем

 if (D > 29221) and (D < 73051) then begin
    encodeDate(...
 end else 
    // некорректная запись

[dimonbest]

Спасибо всем откликнувшимся, все заработало, добился результата!

[dimonbest]

А теперь ошибку выдало в этом месте:

if (D > 29221) and (D < 73051) then begin

Значения следующие:
TD(D).A = (0,4,0,15,0,255,255,0)
D=7.29e-304
В чем ошибка, как с ней бороться?
P.S. кроме TRY

[alexBlack]

Строго говоря прямое присвоение байтам переменной Double каких-то значений не совсем корректно. Это может привести к тому, что заданное нами значение не представимо как вещественное (т.е. является NAN или INF). Приведенный пример не приводит к ошибке. Может быть она возникает при других значениях ранее. Например, значение (0.4.0.15.0.255.255.255) точно дает -NAN. В этом случае первое же сравнение (D > ...) вызовет исключение. Т.е. некоторые данные в твоем файле не только не представимы в виде даты, но и непредставимы как вещественные.

Теперь о том как бороться.
Есть две функции

function IsNan(const AValue: Double): Boolean; overload;
function IsInfinite(const AValue: Double): Boolean;

1. Можно дополнить условие

if not isNAN(D) and not isInfinite(D) and (D > ...)

2. Можно проверить значения, которые мы пихаем в D. Для этого нужно разобраться с форматом Double. В справке есть его описание. см. Double type:internal formats

3. Непонятно упорное нежелание использовать try except