//和Java获取的数值一致
function TWorkWindowForm.GetJavaTime(d: TDateTime): Int64;
var
dJavaStart: TDateTime;
begin
//java里的时间是从1970年1月1日0点到当前的间隔,由于时区不一样,所以从早上8点开始;
dJavaStart := EncodeDateTime(1970, 1, 1, 8, 0, 0, 0);
Result := MilliSecondsBetween(d, dJavaStart);
end;