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
Otomatik İş Planı Tarihi
Bu Konudaki Yorumlar |
Otomatik İş Planı Tarihi - Yazar: siyahca - 11/03/2016, 00:47
Cvp: Otomatik İş Planı Tarihi - Yazar: ozanakkaya - 11/03/2016, 06:01
Cvp: Otomatik İş Planı Tarihi - Yazar: siyahca - 11/03/2016, 08:47
Cvp: Otomatik İş Planı Tarihi - Yazar: ozanakkaya - 12/03/2016, 04:49
Cvp: Otomatik İş Planı Tarihi - Yazar: siyahca - 12/03/2016, 13:49
Cvp: Otomatik İş Planı Tarihi - Yazar: ozanakkaya - 13/03/2016, 02:00
Cvp: Otomatik İş Planı Tarihi - Yazar: siyahca - 13/03/2016, 02:49
Cvp: Otomatik İş Planı Tarihi - Yazar: ozanakkaya - 13/03/2016, 03:30
Cvp: Otomatik İş Planı Tarihi - Yazar: siyahca - 13/03/2016, 03:34
|
Konuyu Okuyanlar: 1 Ziyaretçi