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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)