Comparación de Fechas

[sierraja]

Hola foristas,

He tratado de comparar las siguientes fechas:

el componente dateTimePciker1 y el campo de una base de datos en interbase que fue declarado como DATE y al momento de compararlo hago lo siguiente:

if ClienDataSet.CampoFecha.AsDateTime>=DateTimePciker1.Date then ejecute

No entiendo ¿que pasa? y ¿por qué?

Gracias por su atención.....

[delphi.com.ar]

¿cuál es el problema?... me parece que te faltó explicar algo, o verdaderamente el viernes ya me cayó pesado

[sierraja]

La comparación:

if ClienDataSet.CampoFecha.AsDateTime>=DateTimePciker1.Date then ejecute

El ejecute siempre se cumple aunque el CampoFecha.AsDateTime sea menor que el DateTimePicker1.Date, es decir, tengo fechas menores en la BD que la suministrada por el DateTimePciker1.date y siempre ejecuta el Then.

Disculpas por mi falta práctica para exponer los problemas.

[kukinn]

Hola,

Te encuenta que DateTimePciker1.Date está cogiendo la fecha+la hora. Para que compare solo la fecha debes de poner trunc(DateTimePciker1.Date)

[delphi.com.ar]

Empezado por kukinn

Te encuenta que DateTimePciker1.Date está cogiendo la fecha+la hora. Para que compare solo la fecha debes de poner trunc(DateTimePciker1.Date)

Si esta en modo fecha, solo toma la fecha. Y en el caso que tome fecha y hora, igualmente tendría que evaluarlo bien.

Empezado por sierraja

El ejecute siempre se cumple aunque el CampoFecha.AsDateTime sea menor que el DateTimePicker1.Date, es decir, tengo fechas menores en la BD que la suministrada por el DateTimePciker1.date y siempre ejecuta el Then.

Dudo que se comparen mal las fechas... ¿Estas recorriendo el DataSet o estas preguntando siempre el por el mismo registro?

Agrega en la línea anterior a la evaluación:

Código Delphi [-]
  OutputDebugString(PChar(DateTimeToStr(ClienDataSet.CampoFecha.AsDateTime) +
                    ' >= ' +
                    DateTimeToStr(DateTimePciker1.Date)))

y fíjate en {View \ Debug Windows \ Event Log} si estas en lo cierto.

Saludos!

[[Crandel]]

Puedes probar de alguna de estas dos formas

Código Delphi [-]
if ClienDataSet.CampoFecha.AsFloat >=DateTimePciker1.Date then ejecute

o

Código Delphi [-]
if ClienDataSet.CampoFecha.AsDateTime >=DateTimePciker1.DateTime then ejecute