delphi - TDateTimePicker 与 Kind=dtkDate 在 Date 属性中返回时间分数？

Question

我的表单上有一个带有 Kind=dtkDate 的 TDateTimePicker。
当表格打开时，我做

TDateTimePicker.date := Date

我有一个 var lStartDay : TDateTime;做

lStartDay := DatePickerStart.Date;

我还没有触及用户界面中的 TDateTimePicker。

现在，评估/修改 (Ctrl-F7) 对话框和监视列表(以及悬停在代码上的光标)将 DatePickerStart.Date 显示为 8-1-2014，但 StartDate 是 8-1-2014 15:00:00

当我将监视值 DatePickerStart.Date 编辑为 不使用可视化工具 它显示 41647,625(我花了一些时间才找到它!)

为什么 TDateTimePicker.Date 包含时间分数？

Answer 1

回答我自己的问题以防止其他人跌入同一个坑:

事实证明，当您在表单上放置 TDateTimePicker 时，Time 属性会被当前时间 填充。这总是作为 DatePickerStart.Date 的一部分返回.我的显然是在 15:00:00 放置在表格上的

即使您使用 TDateTimePicker，时间仍保持“在”状态，因此请选择另一个日期。

因此，要解决此问题:在设计时清除 Time 属性(它变为 00:00:00)和/或在您确实只需要日期时始终使用 Trunc(TDateTimePicker.Date) 或 DateOf(TDateTimePicker.Date)。

就其本身而言， TDateTimePicker.Date 不返回日期! .