عدد ايام الجمع بين تاريخين

[hossam7]

السلام عليكم ورحمة الله وبركاتة اود حساب عدد ايام الجمع بين تاريخين

Book1.rar

[احمدزمان]

اخي الفاضل

هذا المرفق من احد المشاركات السابقة

__________________________.rar

[احمدزمان]

السلام عليكم

Book1____.rar

[Accessna]

هذه دالة صغيرة في حجمها كبيرة في أدائها :

Function CountWkDay(ByVal Date1 As Long, _
                    ByVal Date2 As Long, _
                          WkDay As Byte) As Variant
  If Date1 <= Date2 Then
    Date1 = Date1 - 1
  Else
    Date2 = Date2 - 1
  End If
  
  Date1 = Fix((Date1 + (7 - WkDay)) / 7)
  Date2 = Fix((Date2 + (7 - WkDay)) / 7)
  CountWkDay = Abs(Date2 - Date1)
End Function

رابط المشاركة :

http://www.officena.net/ib/index.php?s=&am...dpost&p=656

WeekdayCount.rar