Alarma fecha hora

[jerosol]

Sabrias decirme xq el "if" no funciona:

if (DateTimePicker1.Time=time) and (DateTimePicker1.date=date)then
showmessage(datetostr(DateTimePicker1.date) + ' '+ timetostr(DateTimePicker1.Time) +' '+ datetostr(date)+' '+ timetostr(Time ) );

si el showmessage sale muestra el resutado bien

gracias por todo

[[Caral]]

Hola
Un pequeño ejemplo con Fecha.
Busca la fecha con el DateTimePicker y si coincide con el de la BD (DBEdit) mostrara un mensaje con sonido.
Saludos

[Neftali [Germán.Estévez]]

Empezado por jerosol

Sabrias decirme xq el "if" no funciona:

El problema es que tal vez estás afinando demasiado. Es decir, el Time (la función) devuelve hora, minutos, segundos y milisegundos. Algo así, por poner un ejemplo:
12:00:00:123

El problema es que si comparas esto con el Time de la Base de datos, no te dará True a no ser que coincida incluyendo las milésimas, cosa difícil.

Lo que se podría hacer es almacenar la hora "capando" el valor de milésimas, y lo mismo al consultar el Time (modificándolo para eliminar las milésimas) y dejarlo tal que así:
12:00:00:000

Aun así piensa que deberás ajustar hasta el segundo.

Otra opción (la que creo yo más recomendable) el comparar las horas contando un Delta de diferencia. Es decir, que las considere iguales si la diferencia es menor de 3 segundos (por ejemlo).

Para eso puedes utilizar las funciones que calculan diferencia entre fechas/horas.

• HoursBetween
• MinutesBetween
• SecondsBetween
• ...

[jerosol]

gracias a todos me habeis sido de ayuda
feliz navidad