Ver Mensaje Individual
  #3  
Antiguo 05-01-2007
[basti] basti is offline
Miembro Premium
 
Registrado: ago 2004
Posts: 388
Reputación: 20
basti Va por buen camino
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;
Responder Con Cita