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
aşağıdaki kodlama istediğim gibi çalışmıyor, neyi yanlış yaptığımı da bulamadım.
Son Düzenleme: 03/01/2019, 11:46, Düzenleyen: toprak_tan.