sayın aliyorga;
tablolarını Sql server'a atıp denedim.Sql Server'da tablolarınızda verilerinizde sıkıntı yok,tablo yapısından v.s kaynaklanan bir sorun veya hata meydana gelmedi.

Sorunun çalışmanızda kullandığınız Module21 içerisindeki kodla alakalı diye düşündüm.Şöyleki;

Function trz(hafta As Integer, Gun As Integer) As Date

Dim ilkgun

ilkgun = ("01.01." & Year(Date)) 'Formata Dikkat!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

trz = (DateAdd("ww", hafta - 1, ilkgun) - Weekday(DateAdd("ww", hafta - 1, ilkgun))) + Gun 'Haftanın ilk günü "pazar" olarak baz alınacaksa +1 iptal edilmeli..

End Function

Function trz2(hafta As Integer, Gun As Integer) As Date

Dim ilkgun

ilkgun = ("01.01." & Year(Date) - 1)

trz2 = (DateAdd("ww", hafta - 1, ilkgun) - Weekday(DateAdd("ww", hafta - 1, ilkgun))) + Gun 'Haftanın ilk günü "pazar" olarak baz alınacaksa +1 iptal edilmeli..

End Function

Function trz3(hafta As Integer, Gun As Integer) As Date

Dim ilkgun

ilkgun = ("01.01." & Year(Date) + 1)

 trz3 = (DateAdd("ww", hafta - 1, ilkgun) - Weekday(DateAdd("ww", hafta - 1, ilkgun))) + Gun 'Haftanın ilk günü "pazar" olarak baz alınacaksa +1 iptal edilmeli..

End Function

Burada tarih formatı ##.##.#### şeklinde ve tarih ayracı "."

Siz bilgisayarınızın Bölge ve dil seçeneklerinden Tarih ayracını "." şeklinde değiştirin.

Bende sorun çıkmadan çalıştı.

Sql -server dan veri tabanını silmiyorum.
Eğer ki dediğim şekilde olmazsa Farklı çözümler arayacağız.

Bölge ve dil seçeneklerinde tarih ayarları ekteki gibi olacak.