03.02.2020 - 03.01.2020 = 31
Mod24(31) = 7
24 günlük döngünün 7. günü
1 den 24 e kadar döngünün herbirinin vardiyası sabit
Temmuzdaki mod = 7 olan gün ile şubat 3 deki sabah çalışanlar aynı kişiler
Şöyle bir for döngüsü yazılr mı
Şubat 2020 ilk pazartesi den başlayan
Son cumasına kadar devam eden
Sadece hafta içi günlere denk gelen posta listesini array liste alsın
Ben ay değerini 2 olarak fonksiyona göndereyim o bana şubat hafta içi günlere denk gelen tarih&posta listesi versin
Mesele sonuç şuna benzer olacak
03.02.2020&4c, 04.02.2020&4b...........
şöyle bir kod var
Kod:
Function ayin_ilk_carsambasini_bul(ay_sayisi As Integer) As Date
Dim a As Date
a = DateSerial(Year(Date), ay_sayisi, 1)
Select Case Format(a, "dddd")
Case "Pazartesi": ayin_ilk_carsambasini_bul = a + 2
Case "Salı": ayin_ilk_carsambasini_bul = a + 1
Case "Çarşamba": ayin_ilk_carsambasini_bul = a
Case "Perşembe": ayin_ilk_carsambasini_bul = a + 6
Case "Cuma": ayin_ilk_carsambasini_bul = a + 5
Case "Cumartesi": ayin_ilk_carsambasini_bul = a + 4
Case "Pazar": ayin_ilk_carsambasini_bul = a + 3
End Select
End Function