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;

推荐分享