Locate a una tipo date o time
 

Hola, de antemano gracias por la ayuda que me puedan prestar.
Tengo una base de datos en firebird 1.5, y una aplicacion hecha en Delphi 6, resulta que he tenido problemas al hacer locate sobre variables de tipo time o date. Para solucionar esto realizo combersiones de tipo, pero me parese algo redundante. por ejemplo tengo un MonthCalendar el caul quiero que al hacer click en una fecha determinada me localice o gurde la fecha si no existe, pero parese que al hacer click en una fecha el valor date del MonthCalendar no es un TDate sino algo asi como un TDatatime entonces captura la fecha y algo mas (hora) ya que al hacer el locate no encuentra la fecha, pero si hago un datetostr e igualo a una variable de tipo string y luego en el locate doy strtodate a esta variable funciona bien el locate.
Pero me gustaria no tener que realizar la combersion de tipos, si me puede orientar le agradeceria muho.

Hola,
puedes usar la función Date() para olvidarte de la hora del MonthCalendar:

En la ayuda de Delphi:
Ejemplo:

Código Delphi [-]
DataSet.Locate('FECHA', Date(MonthCalendar.Date), []);

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.

Tienes toda la razón del mundo... eso me pasa por ir deprisa.

Quería decir la función DateOf()

Código Delphi [-]
 
DataSet.Locate('FECHA', DateOf(MonthCalendar.Date), []);

Salu2.

Muchas gracias
 

Ok gracias por sus respuestas si me dio con el "dateof"

Yo sustituiria esa funcion por:

Fecha:= Int(FechaYHora)

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

Saludos

Hola, mira lo que hace la función DateOf

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