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

Question

我正在使用Delphi 2007.

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

我已经尝试过......

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

和

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

但他们都没有工作.它导致将string类型的变量转换为double的错误."无法将类型(String)的变体转换为类型(Double)"

Answer 1

我只猜测你的EditValue属性似乎是TDateTime(或TDate)类型(同时FormatDateTime返回a string).如果这是真的,你可以尝试以下方法:

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