نجوم المشاركات

وعليكم السلام ورحمة الله وبركاتة استخدم دالة ROUND ::بالتوفيق::

ولكن المفروض تتم العملية آليا بناء على الشهر الظاهر ProgEmp4.mdb

أخي الكريم تم انشاء جدول Tbl_Edarh تم انشاء نموذج Frm_Edarh انظر الصور وطبق الشرح الان ادخل على النموذج الجديد وغير كلمة الاولى ستلاحظ انها تغيرت بجدول المراجعين إليك المرفق ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم نسخ K906.1.البيانات.rar

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

السلام عليكم الطريقة في حساب الشهر غريبة تم التعدبل على المثال حسب طلبك ولكن المتبع دائما ان عدد ايام الشهر ثابتة على طول السنين ربما يختلف الشهر الثاني الميلادي بزيادة يوم او نقصه وايضا يمكن الاستعانة برمجيا لاظهار عدد ايام الشهر الحالي ، انظر الدالة ادناه Public Function MonthDays() Dim myMonth As Long myMonth = Month(Date) MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1) End Function ProgEmp4.rar

تفضل أخى الكريم لك ما طلبت التلقيح3.xlsm

تفضل لك ما طلبت البداية-1.rar