Delphi中TDate是否有对应各日期组成部分的常量？

Delphi的System单元中没有预定义的对应年、月、日的常量（比如OneYear、OneMonth、OneDay这类），无法像构建TTime常量那样直接通过乘法累加来创建TDate常量，原因如下：

• TTime的常量（如OneHour、OneMinute）是基于一天的固定分数值（比如OneHour = 1/24），而日期的年、月长度不固定（闰年2月天数不同，不同月份天数有28-31天差异），没办法用固定的常量值来代表一年或一个月对应的天数。
• TDate本质是浮点数，整数部分代表从1899年12月30日开始累计的天数，小数部分对应时间，因此日期的计算依赖于具体日期的天数差，无法用统一常量表示。

替代方案 #

1. 运行时构建TDate
   推荐使用EncodeDate函数（定义在System单元），它能自动处理闰年、月份天数等问题，用法如下：

   var
     MyDate: TDate;
   begin
     MyDate := EncodeDate(2024, 5, 20); // 构建2024年5月20日的TDate
   end;
   

   如果需要同时包含日期和时间，可使用EncodeDateTime函数。

2. 声明TDate常量
   由于EncodeDate是运行时函数，无法用于常量声明，若需定义TDate常量，需手动计算目标日期与1899年12月30日的天数差，直接使用对应的浮点数：

   const
     MyDate: TDate = 45432; // 对应2024年5月20日的TDate值
   

   你可以先在运行时通过Trunc(EncodeDate(年,月,日))获取对应的天数数值，再将其作为常量值使用。

内容的提问来源于stack exchange，提问作者Martin Kakhuis