çok teşekkür ederim.Ancak Ben bir tablo daha oluşturmuştum.Orada tüm günler var.Günleri oradan seçmesini istiyordum.
Son Düzenleme: 13/03/2016, 03:33, Düzenleyen: siyahca.
(Sebep: yanlış yazdım)
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
Konuyu Okuyanlar: 1 Ziyaretçi
