免费小工具

//将Java中的日期转换为Delphi中的日期 
function ConvertJavaDateTimeToDelphiDateTime(Value: Int64): TDateTime;
begin
   Result := IncMilliSecond(StrToDate('1970-1-1'), Value);
end;

//将Delphi中的日期转换为Java中的日期 
 
function ConvertDelphiDateTimeToJavaDateTime(ADateTime: TDateTime): Extended;
begin
   Result := MilliSecondSpan(ADateTime, StrToDate('1970-1-1'))
end;