calcular fecha

[pablomg8]

Hola,

estoy intentando obtener que día se corresponde con un día de la semana de una semana y un año concreto, es decir, que día era por ejemplo el viernes de la semana 1 del año 2006, en este caso tendría que devolverme 06-01-2006.
Estoy mirando las funciones de fechas, pero no doy con ninguna que me sirva, espero podais ayudarme.

Gracias.

[fide]

Hola, eso que quieres hacer yo lo he visto. Si más ano recuerdo está en la misma ayuda del delphi.

Para que lo puedas encontrar debes de insertar un TCalendar de la apestaña SAMPLES creo, seleccionarlo, luego presionar F1 y navegar por sus métodos, propiedades y eventos hasta que encuentres lo que buscas.

Suerte!!!!

[[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.