Delphi 请求时间，为当前时间，数值为1970-01-01以来的毫秒数

本文整理自网络，侵删。

 
//和Java获取的数值一致

function TWorkWindowForm.GetJavaTime(d: TDateTime): Int64;
var
  dJavaStart: TDateTime;
begin
  //java里的时间是从1970年1月1日0点到当前的间隔
  dJavaStart := EncodeDateTime(1970, 1, 1, 0, 0, 0, 0);
  Result := MilliSecondsBetween(d, dJavaStart);
end;


――――――――――――――――

原文链接：https://blog.csdn.net/qq_39951605/article/details/82691110
 

相关阅读 >>

Delphi代码禁止窗体最大化

Delphi 时间差函数及部分字符串与日期时间相互转换的函数

Delphi 判断网络链接文件是否存在

Delphi getwindowhandle

dll与exe之间的恩爱情仇

Delphi 解决“richedit line insertion error”错误

Delphi webbrowser 操作记要

Delphi 删除字符串中首个字符

字符串提取算法

Delphi 10中实现android的广播接收器

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 请求时间，为当前时间，数值为1970-01-01以来的毫秒数