Número de semana

[lphant]

Buenas tardes;

Por favor, ayuda......

Hasta este año no he tenido problemas con el número de semana en las macros que tengo hechas, digo hasta este año porque hoy al actualizar y meter los datos del año que viene .....? No sale el número de semana que tendría que salir.

El número de semana le estoy sacando de la siguiente forma:

día="01/01/2021"

Numero_semana=format(format(día,"ww"),"0#")

El número de semana resultante debería de ser 53 pero me está dando 01.

Como puedo solucionarlo.

Estoy con el móvil, si necesitais el Excel con el ejemplo enciendo el ordenador y lo subo.

Muchísimas gracias.

 

[Antoni]

Te dejo una función que obtiene el número de semana del lunes de la semana que corresponde a la fecha.

Sub ObtenerSemana() 'Ejemplo de llamada a la función Semana
NumSemana = Semana(CDate("01/01/2021"))
End Sub

Function Semana(Día As Date)
Semana = WorksheetFunction.WeekNum(Día - Weekday(Día, vbMonday) + 1)
End Function

 

[lphant]

Hace 9 horas, Antoni dijo:

Te dejo una función que obtiene el número de semana del lunes de la semana que corresponde a la fecha.

Sub ObtenerSemana() 'Ejemplo de llamada a la función Semana
NumSemana = Semana(CDate("01/01/2021"))
End Sub

Function Semana(Día As Date)
Semana = WorksheetFunction.WeekNum(Día - Weekday(Día, vbMonday) + 1)
End Function

 

Muchas gracias @Antoni

Voy a probarlo ahora mismo.