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.