Delphi 11.3中TTimePicker触发OnChange后日期异常变为1899/12/30

问题根源 #

你遇到的问题核心在于：

• Delphi的TDateTime是浮点数类型，整数部分代表日期（从1899-12-30开始计数的天数），小数部分代表当天的时间比例。
• TTimePicker.Time本质是TDateTime：初始时会自动填充当前系统日期+时间；但当你点击控件确认（哪怕没修改时间），控件会将日期部分重置为Delphi的默认基准日期1899-12-30，只保留时间的小数部分。
• MinutesBetween、MinuteSpan这类函数是基于完整的TDateTime计算差值，当两个时间的日期部分一个是2023年、一个是1899年时，日期差带来的分钟数会直接导致结果异常。

解决方案 #

不需要过度复杂化，只需要统一两个时间的日期基准，或者直接提取时间的小数部分进行计算即可：

方案1：统一日期基准 #

使用ReplaceDate函数将两个TTimePicker.Time的日期部分替换为同一个值（比如基准日期1899-12-30，或者当前日期），确保计算时只有时间差生效：

var
  Time1, Time2: TDateTime;
begin
  // 将两个时间的日期统一为基准日期
  Time1 := ReplaceDate(tmpckr1.Time, EncodeDate(1899, 12, 30));
  Time2 := ReplaceDate(tmpckr2.Time, EncodeDate(1899, 12, 30));
  
  mmo1.Lines.Add(FormatDateTime('hh:nn:ss.zzz', Time1) + '   ' +
                 FormatDateTime('hh:nn:ss.zzz', Time2) + '   ' +
                 IntToStr(MinutesBetween(Time1, Time2)) + '   ' +
                 FloatToStr(MinuteSpan(Time1, Time2)));
end;

方案2：直接提取时间小数部分 #

因为TDateTime的小数部分就是当天时间占比，直接取小数部分计算时间差：

var
  Time1Frac, Time2Frac: Double;
  MinuteDiff: Double;
begin
  // 只取时间部分的小数
  Time1Frac := Frac(tmpckr1.Time);
  Time2Frac := Frac(tmpckr2.Time);
  
  // 计算分钟差：一天=1440分钟
  MinuteDiff := Abs((Time2Frac - Time1Frac) * 1440);
  
  mmo1.Lines.Add(FormatDateTime('hh:nn:ss.zzz', Time1Frac) + '   ' +
                 FormatDateTime('hh:nn:ss.zzz', Time2Frac) + '   ' +
                 IntToStr(Round(MinuteDiff)) + '   ' +
                 FloatToStr(MinuteDiff));
end;

补充说明 #

• 仅处理TTime时日期影响计算的原因：MinutesBetween这类函数是为完整的日期时间设计的，会同时计算日期和时间的总差值，所以即使你只关心时间，不一致的日期部分也会导致结果错误。
• TTimePicker触发OnChange后日期改变的原因：这是控件的设计逻辑，当用户交互确认后，控件会剥离日期部分，只保留纯时间对应的TDateTime值（即基准日期+选择的时间）。

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