Esto te devolverá la fecha indicada en formato número de
semana del año (de 1 a 53).
No olvides emplear el formato "ww" en lugar del "ss"
(week por semana) si la consulta la construyes desde
módulo.
Espero que te sirva
>-----Mensaje original-----
>Necesito saber el numero de semana de una fecha en una
consulta Access y la
>funcion WeekNum () no me funciona.
>.
>
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
ALGARROBA = @
"Jordi Pages" <Jordi Pa...@discussions.microsoft.com> escribió en el mensaje
news:F76C777B-2DF1-4059...@microsoft.com...
NumeroSemana: Format([CampoFecha];"ee")
si quieres que el número de semana empiece en el lunes
tendrás que escribirla de esta otra forma
NumeroSemana: Format([CampoFecha];"ee";2)
en la cual le indicas a la función Format en qué día
quieres que empiece la semana (por defecto empieza a
contar la semana por el domingo = 1, lunes = 2, martes =
3, etc)
Espero que te sirva.
Saludos
Juan M Afan de Ribera
[MVP Access]
http://www.mvp-access.com/juanmafan
>-----Mensaje original-----
>Necesito saber el numero de semana de una fecha en una
consulta Access y la
>funcion WeekNum () no me funciona.
>.
>