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

[dimonbest]

Большое спасибо, помогло :

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

Почему не бользуюсь связкой try .... except?
Пользуюсь, но сначала стараюсь проблему решить корректно....

[dimonbest]

Еще вопросики появились:
Чем отличается localtime от systemtime?

Как проще считать время на компьютере и преобразовать его в TDatetime?

[B_N]

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

Еще вопросики появились:
Чем отличается localtime от systemtime?

Часовым поясом. SystemTime - UTC.

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

Как проще считать время на компьютере и преобразовать его в TDatetime?

Пытаюсь понять смысл фразы....

[Andrei]

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

Еще вопросики появились:

Как проще считать время на компьютере и преобразовать его в TDatetime?

Функция Now вам поможет. Обзор функций для работы с датой и временем можете посмотреть здесь.

[dimonbest]

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

Часовым поясом. SystemTime - UTC.

Время на компьютере - это localtime, правильно?

[dimonbest]

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

Функция Now вам поможет.

То что нужно, спасибо

[yurban]

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

А еще лучше покапаться и почитать статейки разные... и самому реализовать на низком уровне

Весь интернет облазил, внятного ничего не нашёл.

Похожая трабла, не могу декодировать в Delphi такую запись, полученную из ресстра (REG_BINARY)
70 B1 C5 A1 A1 0A C9 01
80 30 21 C1 A1 0A C9 01
как видно меняются те же 4 байта, т.е. время, 30 августа примерно 16:10; 2008 год; при декодировании что приведено ранее в этом топике
выдает дату 1899/12/30, а должна быть 2008/08/30

такая запись
00 89 5C 6D 52 3A C9 01
это тоже 30 августа 2008 год, но время около 7ми часов.

[alexBlack]

30/08/2008 вот так получается:

type
   TD = record
      A : array [1..8] of byte;
   end;
var D:TFileTime;
    lpSystemTime: TSystemTime;
begin
   TD(D).A[1] := $80;
   TD(D).A[2] := $30;
   TD(D).A[3] := $21;
   TD(D).A[4] := $C1;
   TD(D).A[5] := $A1;
   TD(D).A[6] := $0A;
   TD(D).A[7] := $C9;
   TD(D).A[8] := $01;
   FileTimeToSystemTime(D, lpSystemTime);
   // lpSystemTime 2008/8/30 13:09:27

Только время не совпадает (Возможно TimeZone - у меня +3)
и с третьей записью непонятно - получается октябрь 2008.

[Jeni]

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

TD = record
A : array [1..8] of byte;
end;

Интересно, а как будут физически располагаться байты массива в памяти, строго друг за другом или с выравниванием по границе двух (четырех/восьми) байт? Может нужно писать TD = packed record ?

[alexBlack]

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

Интересно, а как будут физически располагаться байты массива в памяти, строго друг за другом или с выравниванием по границе двух (четырех/восьми) байт? Может нужно писать TD = packed record ?

В данном случае нечего упаковывать, т.к. запись состоит из одного поля.

sizeOf(TD) == 8