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), MonthOf(Date), 1, d);
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; query1.Next; end;
Suponiendo que en la tabla FECHAMAESTRA tienes:
Código:
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á:
Código:
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