TDateTimePicker与日期

Question

对于来自德尔菲XE7的一个奇怪的问题来说，这是一个简单的问题。

我有这个密码..。

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.Date:= Date;
  memo1.Lines.Add(FloatToStr(Date) + ' vs ' + FloatToStr(DateTimePicker1.Date));
end;

今天，2015年3月18日，在我按下按钮后，我得到的结果是：

42081 vs 42081.846316956

如果我在5分钟后再次按下，我就会得到同样的结果。为什么值是不一样的？

Answer 1

Date()函数截断返回值的十进制部分(将时间部分设置为0)。因此，它返回当前日期/时间，只填写日期。

TDateTimePicker.Date属性设置器只更新内部存储的TDateTime的日期部分，保持现有时间不变。TDateTimePicker.Date属性getter返回整个内部存储的日期/时间，而不是像人们预期的那样仅返回日期。因此，您将看到由TDateTimePicker初始化的更新日期+原始时间。

Answer 2

• TDateTimePicker.Date和TDateTimePicker.Time属性getter返回完整的日期/时间值，尽管它们的名称。另一方面，属性设置程序按照预期只更新日期部分和时间部分。
• Date()函数返回一个只包含日期部分，而不包含时间部分的TDateTime。

要仅检索日期部分，可以使用DateOf()函数从DateUtils单元删除TDateTimePicker.Date或TDateTimePicker.DateTime属性返回的值的时间部分：

DateOf(DateTimePicker1.Date)

Answer 3

将Datepicker1.Time设置为0，您将得到相同的结果。这是你在小数中看到的白天的一部分。