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

Question

我使用的是Delphi2007。

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

我已经试过了..。

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

和

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

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

Answer 1

我只是猜测，您的EditValue属性似乎是TDateTime (或TDate)类型(而FormatDateTime返回一个string)。如果这是真的，你可以尝试以下方法：

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

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