Encontrar aniversarios

[[Delphius]]

A como lo entiendo, la consulta de Caral debería dar los resultados correctos.
A la propuesta de roman no la he probado pero resulta interesante su forma.

Saludos,

[roman]

Empezado por Delphius

debería dar los resultados correctos.

Esta consulta:

Código SQL [-]
select * From  'Personas.db'
where
  extract(month from F_nacimiento) >= :mesini and extract(month from F_nacimiento) <= :mesfin and
  extract(Day from F_nacimiento) >= :diaini and extract(Day from F_nacimiento) <= :diafin

no da resultados correctos. Vamos a aterrizar con unos datos específicos: 28 de febrero y 2 de marzo, que son los que ejemplifica Angel.Matilla.

La consulta queda así:

Código SQL [-]
select * From  'Personas.db'
where
  extract(month from F_nacimiento) >= 2 and extract(month from F_nacimiento) <= 3 and
  extract(Day from F_nacimiento) >= 28 and extract(Day from F_nacimiento) <= 2

Para F_nacimiento = 1 de marzo nos queda:

Código SQL [-]
select * From  'Personas.db'
where
  3 >= 2 and 3 <= 3 and
  1 >= 28 and 1 <= 2

La condición del primer renglón se cumple, mas no así la del segundo. Y sin embargo, el 1 de marzo sí está entre el 28 de febrero y el 2 de marzo.

// Saludos

[[Delphius]]

Pues hoy no le doy a nada ... ¡mi cabeza está muy apagada!

Tienes razón roman. ¿Y quizá tal vez no sería más apropiado evaluar sólo en cuanto al mes?

Saludos,

[Angel.Matilla]

Gracias a todos por las rspuestas. Voy por partes. En la propuesta de roman no entiendo lo de multiplicar por 31 el mes. En todo caso ¿No sría más lógico multiplicarlo por 100? Desa forma se formarían series desde 101 (1 de enero) al 1231 (31 de diciembre). Esta no se me había ocurrido y la tengo que probar.

La de marcoszorrilla es similar a la primera que me sugirieron pero, al igual que aquella, sólo extrae una fecha de todas las posibles.

[Angel.Matilla]

Confirmado. El código ha quedado así:

Código SQL [-]
SELECT * FROM 'Personas.db' 
WHERE 100 * EXTRACT(MONTH FROM F_nacimiento) + EXTRACT(DAY FROM F_nacimiento) BETWEEN 100 * Mes_ini + Dia_ini AND 100 * Mes_fin + Dia_fin AND F_nacimiento != '12/30/1899'

Esa fecha final es porque en las tablas Paradox si una fecha se graba vacía por defecto pone el 30 de diciembre de 1788.

[roman]

Empezado por Angel.Matilla

En la propuesta de roman no entiendo lo de multiplicar por 31 el mes. En todo caso ¿No sría más lógico multiplicarlo por 100?

Bueno, en realidad puedes multiplicarlo por 1000 o por 1000000. La idea es simplemente "agrandar" la parte del mes lo suficiente como para que la parte del día no domine en la comparación. De hecho, originalmente usé 100, pero en realidad 31 es suficiente. Es más, creo que 30 es suficiente

De todas formas, recuerda que este método va a fallar si, por ejemplo, quieres saber todos los cumpleaños entre el 28 de ciciembre y el 4 de enero.

// Saludos

[[Delphius]]

Para las fechas que "cruzan" de año, como el ejemplo de roman no queda más remedio que armar una condición del tipo:

Código SQL [-]
((:Mes >= Mes_ini) AND (:Mes <= 12)) OR ((:Mes >= 1) AND (:Mes <= Mes_fin))

De este modo se mostrarán aquellas fechas que sean desde el mes "inicial" hasta diciembre inclusive, más las fechas que sean de enero hasta la fecha "final".

Un criterio similar se puede, y debe, llevar a cabo con el tema los días "cruzados"

La cuestión es que ahora la lógica pasa por armar esta condición aplicando una evaluación previa de si el mes final es menor al inicial; y lo mismo aplica para el día.

Saludos,

[roman]

Bueno, se supone que todo mes es menor o igual que 12 y mayor o gual que 1, por lo que esos dos condicionales sobrarían.

Lo de la evaluación previa, creo que podemos hacerla en la misma consulta comparando los parámetros en sí:

Código SQL [-]
select * from personas
where
  ( 
    (100*:mi + :di < 100*:mf + :df) and
    (
      (100*:mi + :di < 100*extract(month from fecha) + extract(day from fecha)) and
      (100*extract(month from fecha) + extract(day from fecha) < 100*:mf + :df)
    )
  )
  or
  (
    (100*:mi + :di > 100*:mf + :df) and
    (
      (100*:mi + :di < 100*extract(month from fecha) + extract(day from fecha)) or
      (100*extract(month from fecha) + extract(day from fecha) < 100*:mf + :df)
    )
  )

Un ejemplo de uso:

Código Delphi [-]
var
  mi, mf, di, df: Integer;

begin
  Query1.ParamByName('mi').AsInteger := MonthOf(DateTimePickerInicial.Date);
  Query1.ParamByName('di').AsInteger := DayOf(DateTimePickerInicial.Date);

  Query1.ParamByName('mf').AsInteger := MonthOf(DateTimePickerFinal.Date);
  Query1.ParamByName('df').AsInteger := DayOf(DateTimePickerFinal.Date);

  Query1.Open;
end;

Conste que puse 100 para que no se extrañen .

No la he probado del todo pero creo que funciona salvo porque me falta el caso de que las fechas inicial y final sean iguales, pero no debe ser mayor problema.

// Saludos