delphi - 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。这将只存储日期。