Как использовать 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 возвращает string). Если это правда, вы можете попробовать следующее:

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

См. Также: YearOf , EncodeDate , FormatDateTime документация