Ahí va una función que hace eso, calcular la semana de una fecha dada.
Function CalculaSemana(ByVal Fecha As Date) As Integer
Dim FechaPrimAnyo As Date
Dim DiaSemanaPrimAnyo As Integer
Dim DiaSemanaFecha As Integer
Dim Sumando As Integer
Dim DiasTranscurridos As Integer
FechaPrimAnyo = CDate("01/01/" & CStr(Year(Fecha)))
DiaSemanaPrimAnyo = WeekDay(FechaPrimAnyo)
DiaSemanaFecha = WeekDay(Fecha)
DiasTranscurridos = Fecha - FechaPrimAnyo + DiaSemanaPrimAnyo - 1
CalculaSemana = (DiasTranscurridos \ 7) + 1
End Function
Publicado en es.comp.lenguajes.visual-basic por Gabriel Ortí i Flores
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Un código mucho más corto, publicado por Enrique Medina en microsoft.public.es.vb el 28/08/2003
Function CalculaSemana(ByVal Fecha As Date) As Integer
CalculaSemana = DatePart("ww", Fecha)
End Function
Posted
lun, sep 1 2003 0:03
by
Maverick