Hola a todos, la funcion weekday me da la semana de una fecha especifica, lo que yo nececito es una funcion que me realice lo contrario es decir que de la semana y que me arroje por decir el primer dia de esa semana .. . . PRIMERA RESPUESTA ================= Si no la encuentras, puedes hacerla tu con algo como: Public Function PrimerDiaSemana(ByVal iSemana As Integer) As Date PrimerDiaSemana = DateSerial(Year(Date), 1, 1) While CInt(Format(PrimerDiaSemana, "ww")) < iSemana PrimerDiaSemana = DateAdd("d", PrimerDiaSemana, 7) Wend While Weekday(PrimerDiaSemana) <> vbMonday PrimerDiaSemana = DateAdd("d", PrimerDiaSemana, -1) Wend End Function Pruebala, porque yo no lo he hecho y mejorala (comprobar limites validos, por ejemplo). Espero que te sirva como punto de partida. Por cierto, Weekday te da el dia de la semana de una fecha dada, no la semana de una fecha. ULTIMA RESPUESTA ================ la funcion que desconocia y elemental en esto es DateSerial