Gracias.
Funciona bien, eso si, teniendo en cuenta el lunes=1, martes=2, etc.
He encontrado en Delphi 7 una función que lo hace, por si alguien la necesita, es la siguiente:
EncodeDateWeek(año,semana del año,dia de la semana);
dia de la semana es igual, lunes=1, martes=2,...
Se encuentra en la unidad DateUtils.
Gracias por todo.
|