[Resolvido]Retornar número da semana a partir de uma Data

Boa noite amigos, gostaria de saber se existe alguma forma de contar as semanas do ano.
Exemplo estamos na semana dia 07/fev/2011 semana :6
Tentei usando a função Format, mas não consegui,alguém tem uma sugestão?
Att-Igor

Boa Noite

Cole num Módulo

Function DiaDaSemana(Data As String) As String
If IsDate(Data) Then
Select Case Format(Data, "w")
Case 1
DiaDaSemana = "Domingo"
Case 2
DiaDaSemana = "Segunda-feira"
Case 3
DiaDaSemana = "Terça-feira"
Case 4
DiaDaSemana = "Quarta-feira"
Case 5
DiaDaSemana = "Quinta-feira"
Case 6
DiaDaSemana = "Sexta-feira"
Case 7
DiaDaSemana = "Sábado"
End Select
Else
DiaDaSemana = "Data Inválida!"
End If
End Function


No form:
Nome do meucampo = DiaDaSemana(Data)

Viera acho que não me expliquei direito,minha intenção é o número da semana dentro do ano.
Exemplo:
Data:07/Fev/2011 Semana do ano 6.
Data:03/Jan/2011 Semana do ano 1.

Lembrando que isso tem que ser dentro de uma consulta.
Essas foram as formas que eu usei:
Week:Week([Ordered Date])
Week: PartData("w";[Ordered Date])

Teste por favor

= DatePart ("ww", [seucampodata]))

Eu até consegui com essa função, mas eu precisava dessa contagem começando do "0", segue uma cópia do calendário que eu uso em anexo:

Amigo

dia, mês e ano iniciam em 1 e não em zero.

Eu entendo, o problema é que eu tenho que seguir esse calendário que eu mandei de exemplo.
Toda a empresa,vou tentar assim:Week: PartData("w";[Ordered Date]-1)

Sim, teste dessa forma.

Pior que não funcionou...

pois é, como lhe disse acima inicia sempre em 1.

Boa noite,

Ou será assim, com subtracção fora do parêntesis?
Week: PartData("w";[Ordered Date])-1
Cumprimentos,

Ou assim

Minha caixa de texto = DatePart("w", Ordered Date) - 1

Desculpem a demora no Feedback,eu estava sem computador...Funcionou da seguinte forma,criei um calendário com todas as datas do ano, e nesse calendário a partir da função:
"PartData("w";[Ordered Date])-1" consegui inserir um número da semana no formato que necessitava.
Muito obrigado!