[[oscarac]]

existe el decodedate

Código Delphi [-]
Function Fecha(fecha: TDateTime): TDateTime;
var   Dia,mes,ano: Word;   
begin   
   DecodeDate(now,ano,mes,dia);
end;