Referencia cruzada coso numero de seman no mês

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
lo siento pero no entiendo que quiere decir eso de siete días, ni si era o
no una respuesta a mi anterior pregunta:

¿y cual es la norma para numerar las semanas? ¿Una semana puede ser al mismo
tiempo 1 y 5?


Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
escribió en el mensaje de
noticias:

Em segunda-feira, 6 de agosto de 2012 11h29min35s UTC-3, (desconhecido)
escreveu:

como faço uma consulta de refencia cruazada no o munero de semana no mês?



exemplo:



autor semana1 semana2 semana...





Agradeço antecipadamente.







cómo hacer una consulta en la semana de refencia cruazada Munero en el
mes?



ejemplo:



autor semana1 semana2 semana ...





Gracias de antemano

7 dias.

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

he preparado esto, a ver si te sirve:

'*******************************************************************************
'* NumeroSemanaMes
'* devuelve el número de semnana (del mes, no del año) del día pasado como
'* parámetro
'* Argumentos: datFecha => Fecha consultada
'* uso: NumeroSemanaMes Date
'* http://www.mvp-access.es/emilio
'* Si utilizas este código, respeta la autoría y los créditos
'* ESH 08/08/12 19:42
'*******************************************************************************

Public Function NumeroSemanaMes(datFecha As Date) As Byte
Dim datPrimerDiaMes As Date, _
i As Long, _
bytSemana As Byte

' primer día mes
datPrimerDiaMes = DateSerial(Year(datFecha), Month(datFecha), 1)
' empiezo en semana 1 a menos que el primer día de mes sea lunes
If Not Weekday(datPrimerDiaMes) = vbMonday Then
bytSemana = 1
End If
' recorro los días del mes hasta llegar al buscado incrementando los lunes
la semana en uno
For i = 1 To Day(datFecha)
If Weekday(DateSerial(Year(datFecha), Month(datFecha), i)) = vbMonday
Then bytSemana = bytSemana + 1
Next i
' devuelvo el resultado
NumeroSemanaMes = bytSemana
End Function ' NumeroSemanaMes

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Em segunda-feira, 6 de agosto de 2012 11h29min35s UTC-3, (desconhecido) escreveu:

como faço uma consulta de refencia cruazada no o munero de semana no mês?



exemplo:



autor semana1 semana2 semana...





Agradeço antecipadamente.







cómo hacer una consulta en la semana de refencia cruazada Munero en el mes?



ejemplo:



autor semana1 semana2 semana ...





Gracias de antemano

Gracias

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!

es de desear que respondas a los mensajes de quien te responde, no al tuyo,
así podremos seguir la conversación, también es una buena costumbre, si
deseas mantener la historia de mensajes anteriores, responder al inicio del
mensaje, no al final, lo que lo hace incomprensible.

¿Te sirvió mi propuesta?

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio