Public Const TTT1 = # 6 / 29 / 03 #
Public Const TTT2 = # 8 / 2 / 03 #

Function TTT(w As Integer, d As Integer) As Variant
Dim tmp As Date
tmp = w *  7 # + d +  1 
Select Case tmp
    Case Is < TTT1, Is > TTT2
        TTT = Null
    Case Else
        TTT = tmp
End Select
End Function

Function WWW(TTT As Date) As Integer
Dim tmp As Integer
tmp = TTT \  7 
If tmp =  0  Then tmp =  7 
WWW = tmp
End Function

Function WWW1() As Integer
WWW1 = WWW(TTT1)
End Function

Function WWW2() As Integer
WWW2 = WWW(TTT2)
End Function

TRANSFORM First(TTT([w],[d])) AS Expr1
SELECT tabWeeks.w
FROM tabWeeks, tabDays
WHERE (((tabWeeks.w)>=WWW1()- 1  And (tabWeeks.w)<=WWW2()))
GROUP BY tabWeeks.w
ORDER BY tabWeeks.w, tabDays.d
PIVOT tabDays.d;

Function WWW1() As Integer
WWW1 = TTT1 \  7 
End Function

Function WWW2() As Integer
WWW2 = TTT2 \  7 
End Function

Function WWW1() As Integer
WWW1 = (TTT1 -  2 ) \  7 
End Function

Function WWW2() As Integer
WWW2 = (TTT2 -  2 ) \  7 
End Function

Sub FillWeeks()
Dim i As Integer
For i = WWW1 To WWW2
    CurrentDb.Execute  "INSERT INTO tabWeeks (w) SELECT "  & Str(i)
Next
End Sub

TRANSFORM First(TTT([w],[d])) AS Expr1
SELECT tabWeeks.w
FROM tabWeeks, tabDays
WHERE (((tabWeeks.w)>=WWW1() And (tabWeeks.w)<=WWW2()))
GROUP BY tabWeeks.w
ORDER BY tabWeeks.w, tabDays.d
PIVOT tabDays.d;