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

Question

我正在使用德尔福2007.

我需要写一个FormatDateTime函数总是返回01/01/TDateEdit框（DevExpress组件）作为EditValue。

我已经尝试过...

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

和

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

，但没有一次成功。 它导致将字符串类型的变体转换为double的错误。 “无法转换类型的变种（字符串）到式（双）”

Answer 1

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

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

参见：YearOf，EncodeDate，FormatDateTime文件