为什么时间会不相等？？在线等待！

Question

我在窗体上加了一个DateTimePicker1,过了几分钟以后再加一个DateTimePicker2然后我比较.
procedure TForm1.Button2Click(Sender: TObject);
begin
  if DateTimePicker1.Date = DateTimePicker2.Date then
    showMessage('yes')
  else
    showMessage('no');
end;显示的是'no':  可是我在他们的Date属性里看见的日期是一样的呀！ 这是怎么回事呀？

Answer 1

因为他们两个的time值不一样，把他们两个的Time值设为一样就可以了！

Answer 2

if FormatDateTime('yy-mm-dd',DateTimePicker1.Date) =FormatDateTime('yy-mm-dd',DateTimePicker2.Date) then
    showMessage('yes')
  else
    showMessage('no');

Answer 3

if DateTimePicker1.Datetime = DateTimePicker2.Datetime then