[Resolvido]Relatório com datas por semana nas colunas

Tenho um relatório de fluxo de caixa onde através de uma consulta parâmetro pergunto o intervalo de datas (Data Inicio e Data Fim), o resultado sai em colunas de até 5 semanas. Gostaria que no título de cada coluna mostrasse automaticamente a data referente a semana 1, semana 2 e assim por diante. Exemplo: Semana 1 - 01/03 a 06/03.
Qualquer dica será muito valiosa e fico desde já agradecida.

Não sei se lhe auxilia mas experimente com as funções abaixo, originalmente VBA-Excel, mas funcionam no access tambem

Código:

Function PriSem(D As Variant, Optional FirstWeekday As Integer) As Variant
'Primeiro dia da Semana
If IsMissing(FirstWeekday) Or FirstWeekday = 0 Then

PriSem = D - (Weekday(D) - 2)
Else
PriSem = D - Weekday(D, FirstWeekday)
End If

End Function

Function ÚltimoDiaSemana(D As Variant, Optional FirstWeekday As Integer) As Variant
'Ulimo dia da semana

If IsMissing(FirstWeekday) Or FirstWeekday = 0 Then
ÚltimoDiaSemana = D - Weekday(D) + 7
Else
ÚltimoDiaSemana = D - Weekday(D, FirstWeekday) + 7
End If

End Function


Olá Marco, agradeço sua ajuda.

Mas, eu preciso que mostre por exemplo, no mês de Fevereiro entro com as datas:

Entre: 01/02/2016 e 22/02/2016, nas colunas já aparecem as datas:só faltam as semanas e gostaria que fosse assim:

Semana 1 - 01/02, Semana 2 - 08/02, Semana 3 - 15/02, Semana 4 - 22/02, Semana 5 - 22/02

Quando utilizo:

"Semana " & Format$([DataMov];"ww") & " " & Format([DATAMOV]-PartData("w";[DATAMOV];1)+2;"dd/mm")

Em Fevereiro as semanas ficam: Semana 6, Semana 7, etc

Não sei se entendi mas talvez assim:
"Semana " & Int((13 - Weekday([DataMov]) + Day([DataMov])) / 7) & " " & Format([DataMov]; "dd/mm"

Oi Marco, muito obrigada pela ajuda.

Consegui resolver desta forma:

Semana: "Semana " & Format(DataSerial(Ano([DataMov]);Mês([DataMov]);1);"ww";2;1)-Format([DataMov];"ww";1;1) & " " & Format([DATAMOV]-PartData("w";[DATAMOV];1)+2;"dd/mm")