Приведение типов. Время.

[Человек_Борща]

Доброго времени суток!

Учу чужой компилятор конверсии, и приведению типов, времени, нативными функциями.

Есть некий DateTime - который, согласно док-ии, является вещественным Double, и размером 8 байт.
Есть ещё вещественный Extended в 10 байт.

В Delphi по аналогии TDateTime так же равен 8 байт.

В компиляторе привожу к Double так:

function TimeToDouble(aTime:DateTime):Double;
begin
  Move(aTime,Result,8);
end;  

function DoubleToTime(aDouble:Double):DateTime;
begin
  Move(aDouble,Result,8);
end;

Тестирую, правильноли работает, относительно Delphi:
В скрипт. движке:

var
  d1,d2:DateTime;
  e1,e2:Double;
begin
  d1:=EncodeDateTime(2012,1,1,0,0,0,0);
  d2:=Now;
  e1:=TimeToDouble(d1);
  e2:=TimeToDouble(d2);
  Log('DOTestDaysBetween','d1 = '+DateToStr(d1),'');
  Log('DOTestDaysBetween','d2 = '+DateToStr(d2),'');
  Log('DOTestDaysBetween','e1 = '+FloatToStr(e1),'');
  Log('DOTestDaysBetween','e2 = '+FloatToStr(e2),'');

в Delphi:

var
  d1,d2:TDateTime;
  e1,e2:Double;
begin
  d1:=StrToDateTime('01.01.2012');
  d2:=Now;
  e1:=d1;
  e2:=d2;
  Memo1.Lines.Add('d1 = '+DateToStr(d1));
  Memo1.Lines.Add('d2 = '+DateToStr(d2));
  Memo1.Lines.Add('e1 = '+FloattoStr(e1));
  Memo1.Lines.Add('e2 = '+FloattoStr(e2));

Итоги:

В скрипт. движке:

d1 = 01.01.2012 
d2 = 29.10.2013 
e1 =  4.09090000000000E+0004 
e2 =  4.15764242106018E+0004

в Delphi:

Memo1
d1 = 01.01.2012
d2 = 29.10.2013
e1 = 40909
e2 = 41576,4240919676

Собственно, что я не так сделал? Почему в скрипт. движке целых всего 4, а в delphi их аж 41576. Чем лечить?
Операции сдвига(shl,shr) не поддерживаются скрипт. движком.

[BDA]

4.15764242106018E+0004 = 4.15764242106018 * 10^4 = 41576.4242106018

[Аватар]

Целую часть скрипт движок может выделять, что-то в духе Trunc? Если может, то все решение

ADD Это все к тому вопросу по SQL? Чем не устраивает решение в запросе? Проще и работает

[Человек_Борща]

BDA, если я вас правильно понял, то:

function TimeToDouble(aTime:DateTime):Double;
begin
  Move(aTime,Result,8);
  Result := Result * Power(10,4);
end;

теперь выдает немного не то...

d1 = 01.01.2012 
d2 = 29.10.2013 
e1 =  4.09090000000000E+0008 
e2 =  4.15764459631713E+0008

Целую часть скрипт движок может выделять, что-то в духе Trunc?

Trunc,Frac -нету. Есть Round.

[Аватар]

теперь выдает немного не то

А что не то? Умножили на 10^4 и получили то, что хотели - 415764459.631713. Почитайте об внутреннем представлении вещественных чисел в памяти. Порядок, мантиса.

[BDA]

Я имел ввиду, что эти записи эквивалентны.

[Arigato]

4.09090000000000E+0004 означает умножить на 10^4 - экспоненциальная форма записи вещественного числа.
А что за скриптовой движок, идентичный Делфи? В Делфи приведение типа проще сделать так: Result := Double(aTime);

[Человек_Борща]

Провел такой эксперимент:

function TimeToDouble(aTime:DateTime):Double;
var 
  s:string;
  d:Double;
begin
  Move(aTime,Result,8);
  Result := Result * Power(10,4);
end;  

function DoubleToTime(aDouble:Double):DateTime;
var 
 d:Double;
begin
  d:=aDouble div Power(10,4);
  Move(d,Result,8);
end;

.....

var
  d1,d2:DateTime;
  e1,e2:Double;
begin
  d1:=EncodeDateTime(2012,1,1,0,0,0,0);
  d2:=Now;
  e1:=TimeToDouble(d1);
  e2:=TimeToDouble(d2);
  Log('DOTestDaysBetween','d1 = '+DateToStr(d1),'');
  Log('DOTestDaysBetween','d2 = '+DateToStr(d2),'');
  Log('DOTestDaysBetween','e1 = '+FloatToStr(e1),'');
  Log('DOTestDaysBetween','e2 = '+FloatToStr(e2),'');
  d1:=DoubleToTime(e1);
  d2:=DoubleToTime(e2);
  Log('DOTestDaysBetween','e1-d1 = '+DateToStr(d1),'');
  Log('DOTestDaysBetween','e2-d2 = '+DateToStr(d2),'');
  e1:=TimeToDouble(d1);
  e2:=TimeToDouble(d2);
  Log('DOTestDaysBetween','d1-e1 = '+FloatToStr(e1),'');
  Log('DOTestDaysBetween','d2-e2 = '+FloatToStr(e2),'');

Итого:

d1 = 01.01.2012
d2 = 29.10.2013
e1 = 4.09090000000000E+0008
e2 = 4.15764638682639E+0008
e1-d1 = 01.01.2012
e2-d2 = 29.10.2013
d1-e1 = 4.09090000000000E+0008
d2-e2 = 4.15760000000000E+0008

В чем тут магия?
Почему точка стоит после 4, а в delphi точка стоит после 41576?

А что за скриптовой движок, идентичный Делфи?

Коммерческий.
Не идентичный, но мощьный. Очень урезан много в чем, нет приведения типов(вообще нет), нет shr, shl нет кучи других банальных плюшек. Потому простые вещи приходится писать самому. Вообще нет библиотеки работы с датами, пишу её сам.
В Delphi DaysSpan релизован как DateA - DateB, здесь так нельзя. Сижу, разбираюсь как это происходит на уровне коомпилятора.

[Аватар]

Значит FloatToStr реализована по разному, возможно отличается и внутреннее представление. Тут наврал. Хранение в нормализованном виде должно быть. 10.5 можно отображать и в виде 10.5E+0000 и 1.05E+0001 и 0.105E+0002, что по значению одно и тоже. Последняя форма - это нормализованная

FloatToStrF есть? Им удобней отображать

[Arigato]

Зачем что-то возводить в степень? Вам же объяснили, что 4.09090000000000E+0004 и 40909 - это одно и тоже, просто разная форма записи.