calcular fecha

[[basti]]

No sé si hay alguna función en concreto para eso, pero por si no la hay:

Código Delphi [-]
// diaSemana : 0->Lunes, 1->Martes...
// numSemana : Número de semana del año
function DiaSemanaAFecha(diaSemana, numSemana, anho: integer): TDate;
var
  Fecha1Enero : TDate;
begin
  Fecha1Enero := EncodeDate(anho, 1, 1); //uno de enero del año;
  // sumamos el número de semanas y el día
  result := Fecha1Enero + 7 * (numSemana - 1) + diaSemana;
end;

[pablomg8]

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.