Locate a una tipo date o time

[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

[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;