本文整理自网络,侵删。
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 xe6 使用intent启动活动并在android应用程序中获取返回值的示例
Delphi xe7 android 实现的在线更新app的一个程序
Delphi xe7 的 android bitmap转jpg图的参数问题
更多相关阅读请进入《Delphi》频道 >>