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;