ماهو الكود او العملية الحسابية لمعرفة عدد ايام الشهر الماضي

الف شكر اخوي على هذا المجهود الرائع

Function CountWkDay(ByVal Date1 As Long, _
					ByVal Date2 As Long, _
						  WkDay As VbDayOfWeek) As Long
  Date1 = Date1 - 1
  Date1 = Fix((Date1 + (7 - WkDay)) / 7)
  Date2 = Fix((Date2 + (7 - WkDay)) / 7)
  CountWkDay = Date2 - Date1
End Function

Function PreviousMonthDays()
  Dim Date1 As Date
  Dim Date2 As Date
  Dim CurCal As VbCalendar

  CurCal = Calendar
  Calendar = vbCalGreg

  Date1 = DateSerial(Year(Date), Month(Date) - 1, 1)
  Date2 = DateSerial(Year(Date), Month(Date), 1) - 1

  PreviousMonthDays = CLng(Date2 - Date1 + 1) _
					- CountWkDay(Date1, Date2, vbThursday) _
					- CountWkDay(Date1, Date2, vbFriday)

  Calendar = CurCal
End Function

Sub test()
  MsgBox PreviousMonthDays, , "صافي أيام الشهر السابق"
End Sub

بسم الله الرحمن الرحيم

بارك الله فيك اخي اكسسنا

اخوك sx1

بارك الله فيك الكود يعمل من اروع وادق مايكون

يعطيك الف الف عافية اخ اكسسنا

شكرا لك أخي sx1 وبارك الله فيك

وشكرا لك أخي Enjoy وبارك الله فيك

دالة حساب يوم العطلة (الدالة الأولى) من تصميم أبو هادي