Te paso dos, AñoSemana, que te devuelve un dato del tipo 200435
y SemanaAño que te devuelve el número de semana del año, por ejemplo hoy 35
Sólo una puntualización:
Hay tres criterios a la hora de especificar la primera semana del año:
1 La primera con los siete días en enero
2 La primera con al menos 4 días en enero (es la que he tomado mediante
vbFirstFourDays)
3 La primera con al menos 1 día en enero.
Luego hay otro problema y es considerar cuál es el primer día de la semana.
En mi caso he puesto el lunas (vbSunday)
Puedes consultar estos parámetros en la ayuda de la función DatePart
_________________________________________________
Public Function AñoSemana(ByVal Fecha As Date) As Long
AñoSemana = DatePart("YYYY", Fecha) * 100 _
+ DatePart("ww", Fecha, vbSunday, vbFirstFourDays)
End Function
Public Function SemanaAño(ByVal Fecha As Date) As Long
SemanaAño = DatePart("ww", Fecha, vbSunday, vbFirstFourDays)
End Function
_________________________________________________
Saludos desde la calle Estafeta de Pamplona:
Eduardo Olaz
Microsoft [MVP] Access
eduardoALGARROBAolaz.net
Post by Jordi PagesNecesito saber el numero de semana de una fecha en una consulta Access y la
funcion WeekNum () no me funciona.