delphi – 为多个日历,日期和持续时间推荐使用什么数据结构？

如果你正在编写自己的，就像我想象的那样，我会做一个包含TDateTime和其他字段的类，我将把它放在Python的非常好的mxDateTime扩展中，这非常容易可读，开源，C代码，您可以使用它来提取您需要的gregorian日历逻辑。

在一定限度内，TDateTime始终是正确的。它的时代价值(0)是1899年12月30日午夜。从那里，您可以计算其他朱利安日数。它支持负值，从而支持400多年。在最后的公历日历改革之初，我相信你会开始修正。如果你从1582年10月15日星期五开始，弄清楚它的朱利安日数，以及之前和之后的改革，你应该能够做所有你需要的。请注意，1899年以前的时间“倒退”，但这纯粹是人脑中的问题，计算机将会准确，并计算出分钟数和秒数，最多可达到双精度浮点数数学为你坚持使用TDateTime作为您的基础。

我发现一些非常老的BorlandPascal / TurboPascal代码处理了非常广泛的日期here。

如果您需要处理阿拉伯语，犹太教和其他日历，那么我将您引用到Python作为工作示例的重要来源。不只是mxdatetime扩展名，而是像this这样的东西。

对于数据库持久性，如果您需要的最大分辨率为1秒，您可能希望将日期存储设置为围绕julian日数，并将您的时间从午夜开始为C-like秒。

这是一个我将开始的代码片段，并执行代码完成：

TCalendarDisplaySubtype = ( cdsGregorian,cdsHebrew,cdsArabic,cdsAztec,cdsValveSoftwareCompany,cdsWhoTheHeckKnows );
TDateInformation = class
      private
         FBaseDateTime:TDateTime;
         FYear,FMonth,FDay:Integer; // if -1 then not calculated yet.
         FCalendarDisplaySubtype:TCalendarDisplaySubtype;
      public 

        function SetByDateInCE(Y,M,D,h,m,s:Integer):Boolean;
        function GetAsDateInCE(var Y,s:Integer):Boolean;
        function DisplayStr:String;
        function SetByDateInJewishCalendar( ... );
        property BaseDateTime:TDateTime read FDateTime write FDateTime;
        property JulianDayNumber:Integer read GetJulianDayNumber write SetJulianDayNumber;
        property CalendarDisplaySubType:TCalendarDisplaySubtype;



   end;

我没有理由存储julian日号和TDateTime，只需使用常量，从Trunc(FBaseDateTime)值中减去/添加，并在GetJulianDayNumber中返回SetJulianDayNumber函数。这可能值得让您计算年，月，日，给定日历一次的存储区域，并使其显示为字符串函数更加简单快捷。

更新：看起来你的ER建模比我好，所以如果你发布了这个图表，我会upvote它，就是这样。对我来说，我会存储三个字段;标准化为现代日历标准的日期时间字段，以任何形式包含原始学术日期的文本字段(自由格式)，以及其他几个字段，即子类型查找表外键，帮助我组织和搜索日期按日期和子类型。这对我而言是IT。