problemas con campo timestamp

[Citlalli]

Gracias ahkimpech pero esas funciones las conozco muy bien y para este caso no me sirven.

Lepe, oye fijate que me funcionó muy bien lo que me dijiste del GetText, pero ahora tengo otro problema... que problemática verdad jaja, fijate que no encuentro como comparar ahora dicho campo, mira tengo un timer en el que pongo:

 
procedure TMain.t_agendaTimer(Sender: TObject);
begin
  with DM.qryWork_Agenda_Aux, DM.qryWork_Agenda_Aux.SQL do
	begin
	  Close;
	  Clear;
	  Add('SELECT');
	  Add('Hora');
	  Add('FROM');
	  Add('Agenda');
	  Add('WHERE');
	  Add('Fecha = ' + sep + FormatDateTime('MM/dd/yyyy',Date) + sep);
	  Open;
	  First;
	  while not eof do
		begin
		  if DM.qryWork_Agenda_Aux.FieldByName('Hora').AsDateTime = Date then
			Showmessage(timetostr(time));
		  next;
		end;
	end;
end;

para que cuando el campo hora coincida con la hora del equipo me mande un mensaje.

Estoy insertando la hora en la tabla mediante parámetros como te mencioné antes.

Te explico exactamente que es lo que quiero desarrollar:

una agenda que funciona como un catalogo, el usuario da click en el boton insertar y aparece un cuadro de dialogo que le pide el mensaje y la hora en que quiere el aviso; listo, él sigue trabajando y cuando el timer detecta la hora del aviso, se debe mostrar una ventana con el mensaje que él capturó.

ojala me haya explicado, no soy muy buena describiendo verdad!! muchas gracias

Saludos

[Citlalli]

peeeeerdon, se me olvidaba lo mas importante: mencionarte que mi comparación no sirve, nunca me manda el mensaje.

ahora si, si nuevamente me puedes ayudar te lo voy a agradecer muchisimo, gracias.

saludos

[[Lepe]]

Deberías poner un showMessage en la linea:

DM.qryWork_Agenda_Aux.FieldByName('Hora').AsDateTime

para ver que te devuelve exactamente, no sé si devuelve HH:mm o bien HH:mm:ss depende de donde hayas puesto el OnGetText (en la tabla principal o en una consulta)

Como la fecha se la pasas por parametro, ese último "if" puedes construirlo con DateUtils, para montar la fecha de aviso en formato Fecha y hora y así hacer las comparaciones con "FechaAviso <= Now". Ten en cuenta que por un milisegundo de diferencia, las fechas y horas no son iguales.

Un saludo y ya me contarás.

[Citlalli]

Hola lepe, fijate que no he podido dar con la solucion, por favor aaayuudaaa!!!


Gracias

[[Lepe]]

Empezado por Lepe

Deberías poner un showMessage en la linea:

DM.qryWork_Agenda_Aux.FieldByName('Hora').AsDateTime

Que te sale??? sale la fecha correcta?, es igual a la fecha de hoy??

Un saludo

[Citlalli]

Hola lepe, mira puse los siguientes showmessages y el resultado:

 
	  showmessage(Datetimetostr(DM.qryWork_Agenda_Aux.FieldByName('Hora').AsDateTime));
	  showmessage(timetostr(DM.qryWork_Agenda_Aux.FieldByName('Hora').AsDateTime));

el primero da un mensaje asi 13/06/2005

el segundo da un mensaje asi 12:00:00 a.m. que por cierto dicha hora no la tengo guardada en la base de datos, no se por que me dan las 12.

gracias lepe por tu ayuda