2011-11-07 60 views
4

我正在使用德爾福2007.如何使用FormatDateTime返回與當前年份連接的默認日期?

我需要寫一個FormatDateTime函數總是返回01/01/TDateEdit框(DevExpress組件)作爲EditValue。

我已經嘗試過...

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

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

,但沒有一次成功。 它導致將字符串類型的變體轉換爲double的錯誤。 「無法轉換類型的變種(字符串)到式(雙)」

回答

5

我只是猜測,但你的EditValue屬性似乎是TDateTime(或TDate)類型(而FormatDateTime返回string)。如果這是真的,你可以嘗試以下方法:

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

參見:YearOfEncodeDateFormatDateTime文件

+0

謝謝。它工作完美。 :) – MMalke

相關問題