poner una fecha con el año del sistema

[sargento elias]

He conseguido que funcione de esta manera

Código Delphi [-]
 var
   td = Datetime;
begin

 Dfecha.date:= recodeDate(DT,yearof(now), 01, 01,)

Gracias por la info

[[Lepe]]

Código Delphi [-]
 var
   td = Datetime;
begin

 Dfecha.date:= recodeDate(DT,RecodeLeaveFieldAsIs, 01, 01,)

... si es que el nombre de la constante se las trae ...

Saludos