Skip to main content

AccessTr.neT


Otomatik İş Planı Tarihi

Otomatik İş Planı Tarihi

#7
ç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)
Cevapla
#8
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
Cevapla
#9
Çok teşekkür ederim ozan bey. Artık haftasonu ve diğer belirttiğim tatil günlerinide atamıyor.

sorunum çözüldü
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task