Как использовать 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.