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

[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