delphi java 日期 转换 获取Unix时间戳

本文整理自网络，侵删。

 
uses system.DateUtils;

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

//将Delphi中的日期转换为Java中的日期
function ConvertDelphiDateTimeToJavaDateTime(ADateTime: TDateTime): Extended;
var
   dt: TDateTime;
   dtVal: double;
begin

    if not TryStrToDate('1970-01-01', dt) then
    begin
       dtVal := 25569;
       dt := dtVal;
    end;
    Result := MilliSecondSpan(ADateTime, dt);
end;
 

相关阅读 >>

Delphi 每年、月、周、日的开始与结束的时间

Delphi 用idhttp得到本机外网ip

tstringgrid 添加鼠标拖动功能

Delphi jpg图片 旋转 切边 缩放

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi格式化输出函数

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi tnethttpclient https忽略证书验证

Delphi中使用汇编(关于pos函数的问题)

Delphi 上传文件到七牛，纯原生

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

转载请注明出处：木庄网络博客 » delphi java 日期 转换 获取Unix时间戳