اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

قام بنشر

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

قام بنشر

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

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

قام بنشر (معدل)

السلام عليكم

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

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

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

'         بسم الله الرحمن الرحيم          "
'======================================"
'    دالة تجريبية لعدد الايام بين فترتين    "
'     واستثناء ايام العطل الاسبوعية     "
'         باختيار الايام المطلوبة       "
'======================================"
'======================================"
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

تم تعديل بواسطه خبور خير
قام بنشر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information