حساب الايام بدالة KhCountDay

[ashraff101]

السلام عليكم

اريد معادلة او ماكرو لحساب عدد الايام الواقعة بين يوم 27 حتى يوم 27 من الشهر التالى بدون ايام الجمع والسبت

شاكرييييييييييييييييييييييييييييييييييييييييين

[omar elhosseini]

الاخ ashraff101

شاهد الرابط التالى ::

عدد ايام العمل بدون يوم اجازة محدد

[ashraff101]

هذا العمل ممتاز ولكن كيف يكون الامر اذا كانت الاجازة يومان الجمعة والسبت .... شكرا ايها الصديق العزيز ابو تامر

[ابو اسامة العينبوسي]

السلام عليكم

(اخرج ناتج الفرق بين التاريخين)- (الفرق بين التاريخين * 2 ) -( عدد الجمعة+ عدد السبت)

__________________________________1.rar

[ashraff101]

الصديق الغالى ابو اسامة

متشكرين ولكن لم تعطى الاجابة المطلوبة بالتطبيق العملى على الارقام وعد الايام بدون معادلات .

[عبدالله باقشير]

السلام عليكم

تفضل هذه الدالة التجريبية

اذا كانت تفي بالغرض بالشكل المطلوب سنفردها بموضو ع مستقل

جرب واعطينا النتائج حسب التجربة بملفك الخاص

'         بسم الله الرحمن الرحيم          "
'======================================"
'    دالة تجريبية لعدد الايام بين فترتين    "
'     واستثناء ايام العطل الاسبوعية     "
'         باختيار الايام المطلوبة       "
'======================================"
'======================================"
Function KhCountDay(khDay1 As Date, khDay2 As Date, khName1 As String, khName2 As String)
Dim X As Integer, M As Integer, R As Integer
If khDay1 = 0 Or khDay2 = 0 Then KhCountDay = "": GoTo 1
X = khDay2 - khDay1
M = 0
For R = 0 To X
    If Format(khDay1 + R, "dddd") = khName1 Or Format(khDay1 + R, "dddd") = khName2 Then
        M = M + 1
    End If
Next R
KhCountDay = X + 1 - M
1 End Function

______________________________________________________.rar

تم تعديل أغسطس 19, 2008 بواسطه خبور خير

[cat101]

شكرا .. حاجات حلوة

[ashraff101]

الشكر متواصل للجميع والصديق الغالى خبور باضافاتة السحرية واعطى المطلوب تماما ...... جزا الله الجميع خيرا

[Ahmed Emannan]

شكراً

عمل رائع