delphi - 如何使用 FormatDateTime 返回与当前年份连接的默认日期？

Question

我正在使用德尔福 2007。

我需要编写一个始终将 01/01/ 作为 EditValue 返回到 TDateEdit 框（DevExpress 组件）的 FormatDateTime 函数。

我已经试过了...

tcxDateEdit1.EditValue := FormatDateTime('01/01/'+ 'yyyy',now);

和

tcxDateEdit1.EditValue := FormatDateTime('01/01/yyyy',Now);

但他们都没有工作。它导致将字符串类型的变体转换为双精度的错误。“无法将类型（字符串）的变体转换为类型（双）”

Answer 1

我只是在猜测，但您的EditValue属性似乎是TDateTime（或TDate）类型（而FormatDateTime返回 a string）。如果这是真的，您可以尝试以下方法：

tcxDateEdit1.EditValue := EncodeDate(YearOf(Now), 1, 1);

另请参阅：YearOf、EncodeDate、FormatDateTime文档