如何在C++中将PascalTDateTime(double)时间转换为Unix纪元
我需要使用 C++ 将一个双精度值的 Pascal TDateTime 对象转换为 Unix 纪元。
提出了一个可能的解决方案（https://forextester.com/forum/viewtopic.php?f=8&t=1000）：
unsigned int UnixStartDate = 25569;
unsigned int DateTimeToUnix(double ConvDate)
{
return((unsigned int)((ConvDate - UnixStartDate) * 86400.0));
}
但是，此转换代码会产生错误，例如：
TDateTime 时间值 = 37838.001388888886 (05.08.2003 02:00)
转换为 Unix 纪元 1060041719 (05.08.2003 00:01:59) 这显然是不正确的。
如何准确地转换此 TDateTime 值？
回答
Delphi/C++Builder RTL 有一个DateTimeToUnix()专门用于此目的的函数。
在 a 中TDateTime，整数部分是从 开始的天数，December 30 1899小数部分是从 开始的时间00:00:00.000。使用涉及一整天的原始数学可能有点棘手，因为浮点数学是不准确的。
例如，0.001388888886不完全是00:02:00，它更接近于00:01:59.999。所以你遇到了一个舍入问题，这正是你必须注意的。 TDateTime具有毫秒精度，86400000一天中.001388888886有119999.9997504毫秒，过去的毫秒也是如此00:00:00.000，即00:01:59如果这些毫秒被截断为119999，或者00:02:00如果它们被四舍五入为120000。
TDateTime由于微妙的精度损失，RTL 在几年前停止使用浮点运算。现代TDateTime操作TTimeStamp现在进行往返以避免这种情况。
由于您尝试从 RTL 外部执行此操作，因此您需要在代码中实现相关算法。您展示的算法是多年前RTL用于将 a 转换TDateTime为 Unix 时间戳的方式，但现在已不再如此。当前的算法现在看起来更像这样（从原始 Pascal 转换为 C++）：
#include <cmath>
#define HoursPerDay 24
#define MinsPerHour 60
#define SecsPerMin 60
#define MSecsPerSec 1000
#define MinsPerDay (HoursPerDay * MinsPerHour)
#define SecsPerDay (MinsPerDay * SecsPerMin)
#define SecsPerHour (SecsPerMin * MinsPerHour)
#define MSecsPerDay (SecsPerDay * MSecsPerSec)
#define UnixDateDelta 25569 // Days between TDateTime basis (12/31/1899) and Unix time_t basis (1/1/1970)
#define DateDelta 693594 // Days between 1/1/0001 and 12/31/1899
const float FMSecsPerDay = MSecsPerDay;
const int IMSecsPerDay = MSecsPerDay;
struct TTimeStamp
{
int Time; // Number of milliseconds since midnight
int Date; // One plus number of days since 1/1/0001
};
typedef double TDateTime;
TTimeStamp DateTimeToTimeStamp(TDateTime DateTime)
{
__int64 LTemp = std::round(DateTime * FMSecsPerDay); // <-- this might require tweaking!
__int64 LTemp2 = LTemp / IMSecsPerDay;
TTimeStamp Result;
Result.Date = DateDelta + LTemp2;
Result.Time = std::abs(LTemp) % IMSecsPerDay;
return Result;
}
__int64 DateTimeToMilliseconds(const TDateTime ADateTime)
{
TTimeStamp LTimeStamp = DateTimeToTimeStamp(ADateTime);
return (__int64(LTimeStamp.Date) * MSecsPerDay) + LTimeStamp.Time;
}
__int64 SecondsBetween(const TDateTime ANow, const TDateTime AThen)
{
return std::abs(DateTimeToMilliseconds(ANow) - DateTimeToMilliseconds(AThen)) / MSecsPerSec;
}
__int64 DateTimeToUnix(const TDateTime AValue)
{
__int64 Result = SecondsBetween(UnixDateDelta, AValue);
if (AValue < UnixDateDelta)
Result = -Result;
return Result;
}
请注意我在DateTimeToTimeStamp(). 我不知道是否std::round()会产生完全相同的结果相同德尔福的System::Round()所有值。你将不得不尝试它。