فعلا يا ابو على الموضوع جميل و مفيد و اليك اكواد جميع ايام الاسبوع
اختار اليوم الذى تريده
يوم الجمعه
Function Holiday_1(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_1 = CountWkDay(Date1, Date2, vbFriday)
يوم السبت
Function Holiday_2(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_2 = CountWkDay(Date1, Date2, vbSaturday)
End Function
يوم الاحد
Function Holiday_3(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_3 = CountWkDay(Date1, Date2, vbSunday)
End Function
يوم الاثنين
Function Holiday_4(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_4 = CountWkDay(Date1, Date2, vbMonday)
End Function
يوم الثلاثاء
Function Holiday_5(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_5 = CountWkDay(Date1, Date2, vbTuesday)
End Function
يوم الاربعاء
Function Holiday_6(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_6 = CountWkDay(Date1, Date2, vbWednesday)
End Function
يوم الخميس
Function Holiday_7(ByVal Date1 As Long, _
ByVal Date2 As Long)
Holiday_7 = CountWkDay(Date1, Date2, vbThursday)
End Function
أعتقد مافيش احلى من كده و لاينقصنى غير دعوه صالحه
السلام عليكم