aşağıdaki kodlama istediğim gibi çalışmıyor, neyi yanlış yaptığımı da bulamadım.

Function isgunuPersembesiz(txt_Izin_Baslangic_Tarihi, txt_Is_Yerine_Katilis_Tarihi)

 

Dim hafta As Integer

Const PERSEMBE = 5

 

    Select Case Weekday(txt_Izin_Baslangic_Tarihi)

    

    Case PERSEMBE

    

        txt_Izin_Baslangic_Tarihi = txt_Izin_Baslangic_Tarihi + 1

       

    End Select

     

    Select Case Weekday(txt_Is_Yerine_Katilis_Tarihi)

    

    Case PERSEMBE

    

        txt_Is_Yerine_Katilis_Tarihi = txt_Is_Yerine_Katilis_Tarihi - 1

    

    End Select

     

        hafta = DateDiff("ww", txt_Izin_Baslangic_Tarihi, txt_Is_Yerine_Katilis_Tarihi)

        isgunuPersembesiz = hafta * 6 + Weekday(txt_Is_Yerine_Katilis_Tarihi) - Weekday(txt_Izin_Baslangic_Tarihi)

    

    If isgunuPersembesiz < 0 Then isgunuPersembesiz = 0

    

    End Function