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 2010 unicode

Delphi xe6 使用intent启动活动并在android应用程序中获取返回值的示例

Delphi memo1自动循环上下滚屏

Delphi获取程序所在目录

Delphi nethttpclient post 函数

Delphi xe7 android 实现的在线更新app的一个程序

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

Delphi 设置本地系统时间

Delphi经常用到的公共代码(tools.pas)

Delphi xe7 的 android bitmap转jpg图的参数问题

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...