Locate a una tipo date o time

[pacogarcia]

Saludos.


La funcion "date" devuelve la fecha actual.

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;

Espero que te sirva.

Un saludo.