Otomatik İş Planı Tarihi

Function UygunIsGunu(GeciciTarih As Date, Zorluk As Integer) As Date







   Dim i As Long

   

   i = 1

   Do While i <= 3

       If Weekday(GeciciTarih) <> 1 And Weekday(GeciciTarih) <> 7 And Dsum ("[ZORLUK_PUAN]", "Tablo1", "CALISILACAK_HAFTA = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) + Zorluk <= 4 And DCount("*", "tbl_tatil", "tatilgunu = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) = 0 Then

       i = i + 1

       GeciciTarih = DateAdd("d", 1, GeciciTarih)

       Else

       Exit Do

       End If

   Loop



   Do While Weekday(GeciciTarih) = 1 Or Weekday(GeciciTarih) = 7 Or Dsum ("[ZORLUK_PUAN]", "Tablo1", "CALISILACAK_HAFTA = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) + Zorluk > 4 Or DCount("*", "tbl_tatil", "tatilgunu = " & Format(GeciciTarih, "\#mm\/dd\/yyyy\#")) <> 0

       GeciciTarih = DateAdd("d", 1, GeciciTarih)

   Loop



   UygunIsGunu = GeciciTarih

End Function