ajuda com data

[Tony_carlos]

Olá ,amigos do fórum....

Preciso de uma ajuda, relativamente simples (para os mestres)

Preciso de uma formula que reconheça as datas em semanas, ou seja, o ano tem 52 samanas... até aí beleza...

preciso começar a contagem a partir de 01/01/2009

só que quando virar o ano eu preciso que continue contando , e não volte a semana 1

OBS.: EU TENHO UM ARQUIVO AKI, QUE QUE FAZ ISSO ATRAVES DE UM TAL DE INDEX(), MAS O ARQUIVO NÃO É MEU E ESTÁ TODO BLOQUADO E DEU PAU, PRECISO CRIAR UM.

SE alguém PUDER ME AJUDAR

[KodornaRocks]

Acho que você quer algo assim:

Dim dia As Date
 dia = "01/01/2009"
 semana = 0
 If Year(dia) > 2009 Then
     For i = 2009 To Year(dia) - 1
         semana = semana + WorksheetFunction.WeekNum(DateSerial(i, 12, 31)) - 1
     Next i
 End If
 semana = semana + WorksheetFunction.WeekNum(dia)
 MsgBox semana

Editado Junho 16, 2009 por KodornaRocks