学步园

今天碰到了这个错误，去网上查了一下，解释五花八门，看了一下似乎都不是真正原因。无奈之下只能自己摸索了了。后来看了一下，这个问题非常简单，和数据库什么的一点关系都没有，是一个很纯粹的控件问题。

首先，在出错的时候发现操作系统发了一个消息并且调用了这个函数 TCommonCalendar.SetDate(0)，在Delphi的ComCtrls单元可以找到

procedure TCommonCalendar.SetDate(Value: TDate);
begin
  ReplaceTime(TDateTime(Value), FDateTime);
  if Value = 0.0 then CheckEmptyDate;
  try
    CheckValidDate(Trunc(Value));
    SetDateTime(Value);
  except
    SetDateTime(FDateTime);
    raise;
  end;
end;

错误是从CheckEmptyDate里面报出来的

问题找到了，如果你的DateTimePicker的 DateTime  设置成了0，在控件失去焦点并且没有选择任何时间时，控件会自动调用一个SetDate函数，从而触发了这个错误，解决的方法很简单，如果你没有默认时间，不要设置成0，设置成1， 反正都是1899年，从后面一天开始没有任何问题的。