Comparar una fecha dia/mes de una tabla con la actual.

[microland]

pero esas fechas varian cada año, mi intencion es hacer una agenda que me recuerde fecha como el cumpleaño de un amigo, o que tal amigo es padre y tengo que felicitarle, eso por ejem.

pero esas fechas varian segun el año, como dije anteriormente el deia de la madre, por ejemplo, es el primer domingo del mes de mayo, esa no es una fecha significativamente exacta, me entiendes?

[[Lepe]]

¿Y qué problema tienes?

Eso es cómo el horario de invierno o Semana Santa, que es el 2º Martes del més de febrero, pues vale, que alegría.

Tendrás una tabla aparte para este tipo de cosas, guardado en un formato especial.

Así a primera vista: la tabla se llamaría FECHAMAESTRA con los campos:
Mes integer
Semana integer ( es en la primera semana del mes, o en la segunda... o en la cuarta semana)
dia_de_la_semana integer (para aquellos que se repiten el Lunes de la semana X)

Ejemplo para configurar un registro para el primer domingo de mayo:
Mes = 5
Semana = 1
dia_de_la_semana= 7 (ojito con las rutinas que usas en delphi, puede que considere el domingo como 1 ó 7)

Semana puede tomar valores desde 1 hasta 5, Después puedes tomar un criterio personal, por ejemplo si guardas un 11 se referirá al último domingo del mes, si guardas un 10 será el penúltimo domingo del més. Algunas fechas será de este tipo, y tendrás que tenerlo en cuenta.

Al inicio del año, cuando arranques el programa, Ejecutas un procedimiento almacenado que parte de la tabla FECHAMAESTRA y genera todas las fechas de ese año en la tabla FESTIVOS. Quizás necesites UDFs para el trabajo con fechas y strings y tener más libertad en SQL, por ejemplo las rfunc.

Saludos

[[Lepe]]

Si en SQL es muy dificil, puedes hacerlo desde delphi:

Código Delphi [-]
         // si la fecha de aviso era un martes,
          // averiguamos el primer martes del parametro Fecha
          DecodeDayOfWeekInMonth(FechaAviso, y, m, an, d);
          NotaActualizada := EncodeDayOfWeekInMonth(YearOf(Fecha),
            MonthOf(Fecha),
            1,
            d);

Unidad DateUtils.

Bye

[microland]

me prodias explicar un poco mas.

o te paso la informacion que temgo?

[[Lepe]]

En SQL no sé si existen funciones que permitana armar un TDatetime sabiendo que debe ser el 2º martes del mes de mayo. Lo explico en Delphi y si después te quieres complicar la vida con SQL ya es problema tuyo .

En Delphi tienes "EncodeDayOfWeekInMonth", los parámetros que recibe esta función es:

Código Delphi [-]
EncodeDayOfWeekInMonth(
            YearOf(Date),   // obvio, el año que se quiere para la fecha a codificar
            MonthOf(Date), // el mes 
            1, // nº de Semana dentro del mes. Normalmente un Mes puede tener 5 o 6 semanas (6 en raras ocasiones).
            d);  // dia de la semana (lunes, martes, etc.)

Ejemplos:
- Armar una fecha que corresponde al primer Martes del mes de mayo

Fecha := EncodeDayOfWeekMonth(2008, 5, 1, 2);

El 1 es porque pertenece a la primera semana del mes.
el 2 es porque Lunes = 1, Martes = 2, Miercoles = 3, Jueves = 4 ...

- Armar la fecha del tercer sábado del mes de diciembre:

Fecha := EncodeDayOfWeekMonth(2008, 12, 3, 6);

El 3 por ser la tercera semana.

Vale, pero ¿cuando usar eso?

Al cerrar tu programa escribes en un archivo .ini la fecha actual. y cuando se abra el programa, compara la fecha de windows con la fecha guardada en el .ini. Si el año de las dos fechas son distintos, quiere decir que cerró el programa el 30 de diciembre de 2007 y ahora lo ha abierto el dia 2 de enero de 2008 (por poner un ejemplo), dicho de otra forma, acabas de detectar el cambio de año y llamarás a la rutina "CreaFestivos".

Ahora toca traducir las fechas maestras a una fecha en formato TDateTime, para guardarla en la tabla festivos:

Código Delphi [-]
procedure CreaFestivos;
var LaFecha:TDate;
begin
query1.sql.text :=  'select * from FECHAMAESTRA';
query1.Open;
while not query1.eof do
begin 
  LaFecha := EncodeDayOfWeekMonth(yearof(now),
       query1.Fieldbyname('mes').AsInteger ,
       query1.FieldByName('Semana').AsInteger,
       query1.FieldByName('dia_de_la_Semana').AsInteger);
  query2222.sql.text := 'insert into FESTIVOS(fecha, comentario) values (:F, :c)';
  query2222.parambyname('F').AsDate := LaFecha;
  query2222.parambyname('c').AsString  :=query1.FieldbyName('comentario').AsString;
  query2222.ExecSql; // insertamos el dia en la tabla festivos.
  query1.Next; // avanzamos a la siguiente Fecha maestra
end;

Suponiendo que en la tabla FECHAMAESTRA tienes:

mes  semana    dia_de_la_semana   comentario
 1      3           5             'mi santo'
 5      4           1              'el día de la madre'
 9      5           7             'el dia de mi perro'

En la tabla FESTIVOS (para el año 2008) con ese procedimiento se generará:

fecha (dd/mm/yyyy)   comentario
18/01/2008           'mi santo'
19/05/2008           'el dia de la madre'
¡¡errorr!!, en el mes de Septiembre de 2008 no existe el 5º domingo.

Como ves he incluido un error a conciencia, debes leer la ayuda de la función EncodeDayOfWeekInMonth detenidamente y trabajarla.

Saludos