Visual Basic - Y seguimos con fechas

Life is soft - evento anual de software empresarial
 
Vista:

Y seguimos con fechas

Publicado por Pedro (28 intervenciones) el 05/06/2006 22:38:34
Tengo la semana del año y necesito saber cual es el primer día de esa semana en formato fecha.

Echarme una mano por favor!!

gracias a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Y seguimos con fechas

Publicado por Cecilia Colalongo (3116 intervenciones) el 06/06/2006 13:36:57
Primero llevas la fecha al primer día del año:

Inicio = DateAdd("m",-Month(Date)+1,DateAdd("d",-Day(Date)+1,Date))

Devolverá siempre 1 de Enero del año en cuestión. Luego sumas la cantdad de semanas:

NroSemana = WeekDay(DateAdd("ww",NumeroDeSemanas,Inicio)

Para el primer día, si consideras que empieza un domingo:

Date-(WeekDay(NroSemana)-vbSunday)

Para el último día, si consideras que termina un sábado:

Date+(vbSaturday-WeekDay(NroSemana))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar