حساب عدد أيام الشهر الحالي أو السابق أو التالي

[أ / محمد صالح]

سألني أحد الأصدقاء عن دالة لحساب عدد أيام الشهر الحالي أو السابق أو التالي

فأعطيته دالة تفي بالغرض

ولكني بالبحث على الانترنت في المواقع الأجنبية

وجدت دالة بسيطة جدا تقوم بهذا الدور

فقررت أن أشارك بها أحبتي في الله

لأعضاء وزوار ومشرفي بيتنا الثاني أوفيسنا

ولكن بعد أن نرى إبداعات الزملاء في كتابة دالة لهذا الغرض

وفقنا الله وإياكم لكل خير

[إبراهيم ابوليله]

اخى

واستاذنا محمد

 اعتقد ان هذه المعادله تفى بالغرض

=DAY(DATE(YEAR(B2),MONTH(B2)+1,1)-1)

تقبل تحياتى

[mhrrd]

استاذ محمد صالح

انت استاذ كبير عايزين من حضرتك برنامج يستطيع ان يدخل بيانات الطلاب الجدد  الى موقع الوزاره

[إبراهيم ابوليله]

اخى واستاذنا محمد

وهذا حل اخر بالكود

Sub month_days()
    Dim m As Integer, y As Integer, DaysInMonth As Integer
    m = Format([b2], "mm")
    y = Format([b2], "yyyy")
    DaysInMonth = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1)
    [d2] = DaysInMonth
End Sub

تقبل تحياتى

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم محمد صالح، هذه محاولة في الملف المرفق...

 

أخوك بن علية

 

 

الملف المرفق : Classeur1.rar

[أ / محمد صالح]

اخى

واستاذنا محمد

 اعتقد ان هذه المعادله تفى بالغرض

=DAY(DATE(YEAR(B2),MONTH(B2)+1,1)-1)

تقبل تحياتى

بارك الله لك أخي الكريم إبراهيم

 

هذه الدالة هي التي أعطيتها للزميل

في المرة الأولى

[أ / محمد صالح]

السلام عليكم ورحمة الله

 

أخي الكريم محمد صالح، هذه محاولة في الملف المرفق...

 

أخوك بن علية

 

 

الملف المرفق : Classeur1.rar

 

فعلها بن علية 

eomonth

نهاية الشهر end of month

هذه هي الدالة المختصرة والمرنة التي أقصدها

 

رغم أنها من دوال إكسل القديمة

2003 وما قبلها

 

إلا أن معظمنا لا يستخدمها

ومرونتها لأنها تقوم بإرجاع عدد أيام أي شهر سابق (بالسالب)  أو تالي (موجب)

بدلالة تاريخ مكتوب في خلية أو استعمال الدالة now لتعمل على تاريخ اليوم

 

معادلة الشهر السابق

=DAY(EOMONTH(TODAY();-1))

لاحظ -1 يعني الشهر السابق وهكذا لو قلنا شهرين -2 وهكذا وإن زادت عن 12

 

معادلة الشهر الحالي

=DAY(EOMONTH(TODAY();0))

لاحظ 0 يعني بدون زيادة ولا نقصان فترجع لنا عدد أيام الشهر الحالي

 

معادلة الشهر التالي

=DAY(EOMONTH(TODAY();1))

ويمكننا زيادة 1 إلى أي رقم حتى وإن زاد عن 12

 

.......................

 

وفقنا الله وإياكم لكل خير

[أ / محمد صالح]

استاذ محمد صالح

انت استاذ كبير عايزين من حضرتك برنامج يستطيع ان يدخل بيانات الطلاب الجدد  الى موقع الوزاره

المفترض أن يقوم مبرمجو الوزارة بهذا الأمر

حيث يقوم المسئول بكتابة ملف إكسل به جميع الطلاب ثم يتم استيراده إلى قاعدة بيانات الوزارة

ولكن الأمر موكل لغير أهله

فمن يستطيع عمل كل هذا التطوير مغمور

ومن لا يملك معه الوسايط 

.....................

أما أن نقوم نحن ببرنامج يملأ النماذج ويرسلها فهذا صعب

 

................

 

برجاء من الإخوة المشرفين حذف هذا الموضوع

لأنه تكرر بصورة غير مقصودة

[محمد الريفى]

السلام عليكم

الى اساتذتى مشاركتى فى الحل

احاول رفعه ولكن النت لدى بطيىء جدا

تحياتى اليكم

تلميذكم

New ورقة عمل Microsoft Excel.rar

[mhrrd]

شكرا استاذ محمد عل ردك

ولكن

 

يوجد بالمنتدى للاستاذ ياسر خليل ملف نستطيع عن طلريقه الدخول لصفحة بيانات الطلبه بموقع الوزاره

الملف ينقصه عمليه ادخال البيانات

** يوجد بمنتدى بوابة الثانويه العامة برنامج المنجز يستطيع عمل ذلك ولكن عيبه انه بفلوس والمدارس فقيره

اعانك الله

[ياسر خليل أبو البراء]

بسم الله ما شاء الله .هكذا يكون العمل

مساهمة بسيطة مني دالة معرفة تقوم بنفس الوظيفة من سطر واحد فقط

Function NB_DAYS(date_test As Date)
    NB_DAYS = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1)
End Function

وإليكم إخواني (اللي بيحبوا يحتفظوا بالأرشيف) ملف مجمع فيه كل الحلول السابقة للأساتذة الكبار

 

Number Of Days In A Month.rar

[أ / محمد صالح]

هذا ليس عيبا

فكل جهد من صاحبه يجب تقديره

وكل جهد مبذول في عملك ويقوم آخر براحتك من هذا الجهد

ترى لو استأجرت أحدا يقوم بذلك بدلا منك

هل تعطيه أجره أم لا؟؟؟!!

.........................

نداء للسادة المشرفين

الموضوع مخالف نظرا لتكراره بدون قصد

يرجى حذف هذا الموضوع

[طارق محمود]

نداء للسادة المشرفين

الموضوع مخالف نظرا لتكراره بدون قصد

يرجى حذف هذا الموضوع

 

 

 

تم دمج الموضوعين

[أ / محمد صالح]

يوجد بالمنتدى للاستاذ ياسر خليل ملف نستطيع عن طلريقه الدخول لصفحة بيانات الطلبه بموقع الوزاره

الملف ينقصه عمليه ادخال البيانات

أين رابط هذا الملف

[mhrrd]

تفضل يا غالي

اعانك الله

http://www.officena.net/ib/index.php?showtopic=56579

[سليـمان]

السلام عليكم  

لو سمحتم أحب أشارك بملف صغير عسى أنه يفيد رغم أن الوقت متأخر بالنسبة لهذه المشاركة

والسلام عليكم وبارك الله فيكم

ملف لعدد أيام شهر معين.rar

[أ / محمد صالح]

ما شاء الله

إبداعات لا تنتهي

موفقين إن شاء الله