Delphi - FECHAS. AYUDA

La funcion DayOfWeek te devuelve el dia de la semana que es hoy, (01/10/01 te diria que es el dia 2 de la semana (ya que me devuelve el valor americano, estos empiezan por el Domingo)), bueno, lo que a mi me interesa es justamente lo contrario, que yo le diga el nº de la semana
ej. 3 (martes) y me devuelva la fecha de esta semana es decir (02/10/01).

Si alguien sabe si hay alguna función que te devuelva esto, o alguna forma de hacerlo rápido.

Gracias. Un Saludo

Hombre, pues lo tienes fácil. No tienes más que sumar/restar a la fecha que quieras, la diferencia entre el día de la semana de esa fecha y el que tú quieras, por ejemplo:

Fecha := 01/10/2001; //Hoy
DiaSemana := DayOfWeek(Fecha); //2
OtroDiaSemana := 4; //Miércoles

DiaQueYoQuiero := Fecha + (OtroDiaSemana - DiaSemana); //A hoy le sumo dos días.

Espero que con esto puedas hacer la función que tú quieres. La hubiese escrito yo, pero ando un poco apurado.

Un saludo.