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

Question

我使用的是 Delphi 2007。

我需要编写一个 FormatDateTime 函数，该函数始终将 01/01/作为 EditValue 返回到 TDateEdit 框(DevExpress 组件)。

我已经尝试过了...

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

和

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

但它们都不起作用。它会导致将 string 类型的变体转换为 double 时出错。“无法将类型(字符串)的变体转换为类型( double )”

Answer 1

我只是猜测，但您的 EditValue 属性似乎是 TDateTime (或 TDate)类型(而 FormatDateTime 返回一个字符串)。如果确实如此，您可以尝试以下操作:

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

另请参阅:YearOf , EncodeDate , FormatDateTime文档