surfer
02 de Noviembre del 2004

Me gustaria saber como puedo saber la semana del año a partir de una fecha determinada. hay alguna funcion??

edgarito
02 de Noviembre del 2004

Function calculasemana(ByVal fecha As Date) As Integer
calculasemana = DatePart(DateInterval.WeekOfYear, fecha)
End Function

mariocesar
02 de Noviembre del 2004

Function CalculaSemana(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

Function CalculaSemana(Fecha As Date) As Integer
CalculaSemana = DatePart("ww", Fecha)
End Function