Semana del Año

Hola Danes,

Si Ud quiere obtener el numero de semana ISO (importante) a partir de una fecha
en A1:

=ENTERO((A1-(FECHA(AÑO(A1-DIASEM(A1-1)+4);1;3)-
DIASEM(FECHA(AÑO(A1-DIASEM(A1-1)+4);1;3)))+5)/7)

' o
=1+ENTERO(MIN(RESIDUO(A1-FECHA(AÑO(A1)+{-1;0;1};1;5)+
DIASEM(FECHA(AÑO(A1)+{-1;0;1};1;3));733))/7)

Saludos,

Daniel M.

"Danes Vilela" wrote in message
news:ewV%

Hola a todos

Una consulta por favor, como puedo obtener a partir de una fecha el numero
de la semana pero del año no del mes.

Saludos

DANES VILELA

Anexa la Siguiente función a tu libro personal de macros
para que este disponible siempre


Public Function Semana(Fecha As Date) As Integer
Semana = DatePart("ww", Fecha, vbSunday, vbFirstFullWeek)
End Function

Cada que requiera convertir una fecha a numero de semana
del año utilice la fucnion.

=Semana(23/03/2005)

y el devolvera 12

Hola Humberto,

Tal como pones la formula devolvera 52 ya la sintaxis es erronea. Lo que
estas haciendo en =Semana(23/03/2005) es pasarle a la funcion VBA
personalizada Semana un argumento q es resultado de 23 dividido por 3
dividido por 2005 = 0.00382377389858687

La sintaxis correcta seria una de estas (y unas cuantas mas):
=Semana(A1)
=Semana("22/03/2005")
=Semana(FECHA(2005;3;22))
=Semana(FECHANUMERO("22-Mar-05"))
=Semana(--("22-03-2005"))

Saludos,
Kl


"Ing. Humberto García" wrote in
message news:0ce301c52fc1$dfd68a20$
Anexa la Siguiente función a tu libro personal de macros
para que este disponible siempre


Public Function Semana(Fecha As Date) As Integer
Semana = DatePart("ww", Fecha, vbSunday, vbFirstFullWeek)
End Function

Cada que requiera convertir una fecha a numero de semana
del año utilice la fucnion.

=Semana(23/03/2005)

y el devolvera 12