TDateTimeToDouble?

[daywalker9]

Ganz einfach:

Delphi-Quellcode:

var s : TDateTime;
    d : double;
begin s:=now;
      d:=s; 
end;