Delphi 獲取 Android 通話記錄日期

Question

我閱讀了 Delphi Android 通話記錄。 在通話記錄中，日期是 Delphi 無法識別的格式。 日期返回如下：“1587377791601”。

如何將其轉換為 Delphi 中的 dd.mm.yyyy hh:mm:ss 格式？

Answer 1

解決了這個問題。 代碼未“優化”但有效：

    CallTimeDouble := StrToInt64(DATEx) / 1000; //Gives seconds
    CallTimeDouble := CallTimeDouble / 60; //Gives Minutes
    CallTimeDouble := CallTimeDouble / 60; //Gives hours
    CallTimeDOuble := CallTimeDouble / 24; //Gives dates
    CallTimeDouble := CallTimeDouble + 25569; //01.01.1970 - 30.12.1899
    CallTimeDouble := CallTimeDouble + 0.125; //Added +3h to GMT, Finland

    Result := CACHED_NAMEx + ' ' + NUMBERx + ' ' + FormatDateTime('dd.mm.yyyy hh:mm:ss', CallTimeDouble) + ' ' + DURATIONx;

        ShowMessage(Result);