[Mick]

Empezado por pacogarcia

Saludos.
Yo utilizo esta funcion para extraer la fecha:

Código Delphi [-]
function ExtraerFecha(fechayhora :TDateTime) : TDateTime;
var year,Month,Day : word;
begin
    DecodeDate( fechayhora, Year, Month, Day);
    result := EncodeDate(Year, Month, Day);
end;

Yo sustituiria esa funcion por:

Fecha:= Int(FechaYHora)

que es bastante mas rapido que decodificar y codificar un Datetime.

Saludos