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

[الديني]

اخواني الاعزاء واستاذتي الاجلاء

 

لدي نموذج وجدول واستلام الحتساب رواتب

 

اريد ارجاع عدد ايام الشهر الحالي في النموذج 

 

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

 

ولك شكري ومزيد من الرقي والتقدم

 

عدد ايام الشهر الحالي.rar

[الديني]

اخواني الاعزاء واستاذتي الاجلاء

 

لدي نموذج وجدول واستعلام لاحتساب الرواتب

 

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

 

 

ولكم شكري ومزيد من الرقي والتقدم

[ابوخليل]

عدد ايام الشهور الميلادية ثابت

 

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

[الديني]

عدد ايام الشهور الميلادية ثابت

 

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

ممكن وضعها وطريقة جلبها   وشكرا لك اخي ابوخليل وعند جلبها تطبق على كل السجلات لان عندي موظفين كثيرلانه يتم  احتساب الراتب بعدد ايام العمل الى عدد ايام الشهر الحالي

[ابوخليل]

بتوفيق الله وفضله هذه وحدة نمطية صغيرة تقوم بالطلب 

Public Function MonthDays()
     Dim myMonth As Long
    myMonth = Month(Date)
    MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1)
End Function

 

عدد ايام الشهر الحالي.rar

[الديني]

شكرا عافاك الله اخي العزيز 

تم تعديل أكتوبر 1, 2013 بواسطه الديني

[ابوخليل]

ويمكن الاكتفاء عن الوحدة النمطية بهذا السطر نضعه في مصدر عنصر الحقل المحدد

=Day(DateSerial(Year(Date());Month(Date())+1;1)-1)

[ابوخليل]

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

[محمد بن سعود]

تسلم يمناك استاذنا الغالي ابو خليل على حل المشاركه

والكل بيستفيد منه مستقبلاً

[ابوخليل]

يا هلا  باخوي ابو عيسى

للعلم يمكن تطبيقها على الشهر الهجري

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

بمعنى انها تستخرج آخر يوم من هذا الشهر

[الديني]

بارك الله فيك  اخي او خليل  ابداع  الله يزيدك من العلم علما ويفتح لك من الخير ابوابا