単に代入するだけなら、
dateTime = (double)a;

時刻を変換したいなら、
http://www2.big.or.jp/~osamu/Delphi/tips.cgi?index=0088.txt