cxDateEdit设置时间

Question

如何强制cxDateEdit将时间重置为00:00:00？实际上我不需要时间，只是将其属性更改为日期，但不知何故，时间仍然包含在结果中。不可见，但足以使我的查询结果错误。我必须将时间重置为00。

Answer 1

DateUtils.DateOf只返回日期时间变量的日期部分。

// QueryDate is a TDateTime variable
QueryDate := DateUtils.DateOf(cxDateEdit1.DateTime);
YourQuery.ParamByName('TheDate').AsDateTime := QueryDate;

对于使用没有DateUtils单元的旧版本Delphi的未来读者，您可以使用Trunc完成相同的操作。 （如果你有DateUtils，那么如果你使用DateOf，你会更清楚自己在做什么。）

QueryDate := Trunc(cxDateEdit1.DateTime);

Answer 2

属性中有一个SaveTime属性，您可以将其设置为False。这将仅存储日期。