Jump to content

Número de semana


lphant

Recommended Posts

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.

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy