Dada una fecha en campo Acces saber a que semana pertenece...

Function NumeroSemana(ByVal Fecha As Date) As Integer
Return ((Fecha.DayOfYear + Weekday(CDate("01/01/" &
Fecha.Year.ToString), FirstDayOfWeek.System) - 1) \ 7) + 1
End Function

Suerte.

"David C" escribió en el mensaje
news:

Hola a todos,

Alguien sabe alguna funcion para sacar el número de semana (de 1 a 52)
dentro del año si tenems una fecha qualquiera en un campo de acces?

Salu2

david c.

Se me olvidaba la manera mas comoda:

Public Shared Function NumeroSemana(ByVal Fecha As Date) As Integer
Return DatePart(DateInterval.WeekOfYear, Fecha,
FirstDayOfWeek.System)
End Function

Suerte.
"David C" escribió en el mensaje
news:

Hola a todos,

Alguien sabe alguna funcion para sacar el número de semana (de 1 a 52)
dentro del año si tenems una fecha qualquiera en un campo de acces?

Salu2

david c.