Visual Basic - SEMANAS

Life is soft - evento anual de software empresarial
 
Vista:

SEMANAS

Publicado por JULIOESCOBAR (58 intervenciones) el 08/08/2006 17:55:10
Amigos: necesito recuperar las fechas de una semana, al proporcionar una semana que me presente la fecha de inicio y final en 1 o 2 textbox, gracias de antemano
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:SEMANAS

Publicado por Cecilia Colalongo (3116 intervenciones) el 09/08/2006 12:54:36
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