[defcon1_es]

Hola, mira lo que hace la función DateOf

Código Delphi [-]
function DateOf(const AValue: TDateTime): TDateTime;
begin
  Result := Trunc(AValue);
end;