delphi跟java的日期转换问题

Question

a为字符串，给a赋值
java：
 Date date=new Date();
 a=Long.toString(date.getTime());结果是：1173163715875delphi：
a:=floattostr(now);结果是：39147.7385462616delphi要怎么做才能得到java那样的结果？

Answer 1

a:=floattostr(time);//time是sysutils文件中表示当前时间的变量

Answer 2

试过再来说啊,time得到什么,只是小于0的小数啊.

Answer 3

java中：
   Date date=new Date();
   a=Long.toString(date.getTime());
   结果是：1173163715875毫秒，可直接用a=Long.toString(System.currentTimeMillis());
   这个时间是从1970年一月一日0点开始计数的毫秒数；delphi中：GetSystemTime

Answer 4

我要的是delphi怎么实现，而不是改变java的算法。

Answer 5

uses
DateUtils;
DaysBetween(now,strtodatetime('1970-01-01'))*24*60*60