DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EÃER(HAFTANINGÜNÜ(B2;2)>4;B2+3;B2+1)
=EÃER(YADA(VE(GÜN(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=23;AY(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=4);VE(GÜN(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=19;AY(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=5);VE(GÜN(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=30;AY(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=8);VE(GÜN(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=29;AY(B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))=10));B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1)+1;B2+EÃER(HAFTANINGÜNÜ(B2;2)>4;3;1))
Function tatil(tarih As Date) As Date
Dim dinitatil
dinitatil = Array("10.01.2006", "11.01.2006", "12.01.2006", "13.01.2006", "23.10.2006", "24.10.2006", "25.10.2006")
tarih = tarih + 1
For i = 0 To 6
If dinitatil(i) = tarih Then tarih = tarih + 1
Next
Gun = Weekday(tarih, 2)
Select Case Gun
Case 6
tarih = tarih + 2
Case 7
tarih = tarih + 1
End Select
If CDate(tarih) = DateSerial(Year(tarih), 1, 1) Or _
CDate(tarih) = DateSerial(Year(tarih), 4, 23) Or _
CDate(tarih) = DateSerial(Year(tarih), 5, 19) Or _
CDate(tarih) = DateSerial(Year(tarih), 8, 30) Or _
CDate(tarih) = DateSerial(Year(tarih), 10, 29) Then
tarih = tarih + 1
End If
tatil = tarih
End Function