حساب مكافأة نهاية الخدمة

راجع هذا الرابط أخي الكريم ربما يفيدك بطريقة حساب مدة الخدمة ..

/index.php?showtopic=66176

تقبل تحياتي ..

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

أخواني الكرام ما زلت أنتظر ردكم!!!

أعزائي وإخواني الكرام ما زلت أنتطر الرد ما أدري هل الموضوع ما واضح؟

السلام عليكم اخواني

اخي الفاضل طلبك كما فهمت اتمني ان يكون المطلوب

مكافأة نهاية الخدمة.rar

مشكور أخي العزيز مبدئ جرئ جزيل الشكر بارك الله تعالى فيك هذا ما قصدته بس لأني أريد أخذ الثلاث ارقام بعد الفاصلة أستخدمت دالة Round للتقريب إلى ثلاثة أرقام وأطرح منها 0.001 هل ما عملته صحيح؟ أو توجد هناك  طريقة ثانية أفضل من هذه الطريقة لأخذ الثلاثة أرقام بعد الفاصلة ؟ وكيف أتغلب على السالب الذي يظهر إذا أدخلت مدة أقل من ثلاث سنوات الناتج في السنوات الأخيرة -0.001 وفي الأشهر -0.001 وفي الأيام 0.001

السلام عليكم

اخي الفاضل / التعديل كما فهمت من طلبك اعتذر ان كان فهمي خاطئ

ولك مني الدعاء بالتوفيق.....

طبعا انا عملت اللي اقدر عليه علي قدر فهمي فانا مبتدئ وهنا في المنتدي عمالفة كبار سيفيدونك ان شاء الله

مكافأة نهاية الخدمة.rar

بارك الله تعالى فيك أخي العزيز مبتدئ جرئ ما قصرت وفي ميزان حسناتك بإذن الله تعالى أرجو منك أو أحد أعضاء المنتدى أن يشرح لي هذه الكودات

Private Sub Command60_Click()
On Error GoTo Err_Command60_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Command60_Click:
    Exit SubErr_Command60_Click:
    MsgBox Err.Description   
 Resume Exit_Command60_Click
    End Sub
Private Sub Command61_Click()
On Error GoTo Err_Command61_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_Command61_Click:
    Exit Sub
Err_Command61_Click: 
   MsgBox Err.Description 
   Resume Exit_Command61_Click 
   End Sub

كما أرجو من الأعضاء أن يوجهوني ماذا أعمل إذا أردت أخذ الثلاثة أرقام بعد الفاصلة بدون تقريب وأما معادلة التقريب إلى ثلاثة أرقام وخصم 0.001 كما وجهني أحد الأعضاء الكرام في البداية أشوفها ما تنفيع لأن إذا كان الرقم الثلاث من الفاصلة صفر فأنه لا يقرب أي عدد ويخصم من الناتج 0.001 ويطلع الناتج ناقص 0.001

عزيزي saswahaibi ،

بالنسبة إذا أردت إظهار 3 أرقام بعد الفاصلة ، كهذا الشكل : ###.## >>> أنظر إلى الصورة التالية ، مع الإنتباه إلى إزالة ROUND من الكود في محرر الفيجوال بيزك .

لأنك إن تركت ROUND في الكود عندها ستظهر النتيجة هكذا : 000.## .

أخي الكريم ، في المرفق تعديل لبرنامجك بعد إزالة ROUND من الكود ، والتعديل في الخصائص كما هو موضح في الصورة .

مكافأة نهاية الخدمة.rar

أما بالنسبة للأكواد التي وضعتها أنت وطلبت شرحها ، فهي ليست مطلوبة في برنامجك ، هذه الأكواد تابعة لأزرار جاهزة ، وبعد إضافة هذه الأزرار تم حذفها من النموذج ، لذا إن حذفت من النموذج تبقى أكوادها في محرر الفيجوال بيزك .

أزلت لك هذه الأكواد في المثال الذي أرفقته لك في مشاركتي السابقة .

وهذه الأزرار مهمتها :

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

هذا الكود للتراجع عن التعديل !

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

هذا الكود لعمل REFRESH للصفحة !

وهي لا علاقة لها في برنامجك الآن .

مشكور جداً أخي العزيز hamidymon بارك الله تعالى فيك في ميزان حسناتك بإذنه تعالى كتب أكثر بكثير من قيمة بس أستنخدام الألة الحاسبة في المثالثين التاليين المثال الأول الراتب 120 ، مدة الخدمة 8 سنوات و3 أشهر و9 أيام أول شئ يفصل 3 الثلاث سنوات الأولى والمكافأة عن الثلاث سنوات الأولى : 360 و 5 الخمس سنوات الأخيرة : 1200 و3 الثلاثة الأشهرة الأخيرة : 60 و9 الأيام الأخيرة : 5.917 بس ناتج البرنامج طلع 5.918 وهذا أنا اللي ما أريده ، المثال الثاني : الراتب 138 مدة الخدمة 1 سنة و3 أشهر و7 أيام طبعاً كل مدة الخدمة تكون في الثلاث سنوات الأولى إحتساب الألة الحاسبة مكافأة السنة : 138 ومكافأة 3 الثلاثة أشهر : 34.500 ومكافأة 3 الثلاثة أيام : 2.646 بس ناتج البرنامج : 2.646 من الملاحظ أن البرنامج يأخذ الثلاثة أرقام بعد الفاصلة مع تقريب الرقم الثالث بعد الفاصلة أنا أريد يأخذ الثلاثة أرقام بعد الفاصلة بدون أي تقريب أو إضافة شاكر جزيل الشكر والعرفان على مجهودك المبذول مجهود يستحق الشكر والتقدير

مرفق لكم برنامج يقوم بحساب مكافأة نهاية الخدمة بعد إدخال الراتب الاساسي ومدة خدمة الموظف وهذا البرنامج يحسب المكافأة على أساس راتب عن الثلاث سنوات الأولى وراتبين عن السنوات الأخيرة مع شكري وتقديري لكل من ساهم بالرد عليّ عندما شاركت بهذا الموضوع وأخص بالشكر استاذي أكسير الحياة واستاذي hamidymom واستاذي moh samer ali وأخي مبتدئ جرئ وأخي إياد بيك كما أرجو من اساتذتي الكرام مشرفين منتدى الأكسس تقيمه مع ملاحظتي بالتالي :

1- لم أقم بحجز مساحة للمتغير لعدم إلمامي بها ، كيف أقوم بحجز مساحة للمتغير في كودات هذا البرنامج على سبيل المثال وإذا كانت أية دروس عن حجز مساحة للمتغير أرجو إفادتي بها .

2- ماذا تعني Private Sub dy_afterupdate()

If Me.YRS >= 3 Then ماذا تعني Me

ماذا تعني Private Sub dy_lostfocus()

3- baqy تعني الباقي من الإشتراك أي بعد ما نخصم الإشتراك من المكافأة ، tomo تعني إجمالي المكافأة ، ajz تعني العجز كيف تكون الجملة الشرطية إذا الإشتراك أكبر من المكافأة الباقي = الإشتراك - المكافأة والعجز = 0 ، إذا كان الإشتراك أصغر من المكافأة الباقي = 0 والعجز = المكافأة - الإشتراك

مكافأة نهاية الخدمة لموظفي القطاع الخاص.rar

أخواني الكرام ما زلت أنتظر ردكم شاكر تعاونكم

أخواني ما زلت أنتظر ردكم

مرفق لكم برنامج يقوم بحساب مكافأة نهاية الخدمة بعد إدخال الراتب الاساسي ومدة خدمة الموظف وهذا البرنامج يحسب المكافأة على أساس راتب عن الثلاث سنوات الأولى وراتبين عن السنوات الأخيرة مع شكري وتقديري لكل من ساهم بالرد عليّ عندما شاركت بهذا الموضوع وأخص بالشكر استاذي أكسير الحياة واستاذي hamidymom واستاذي moh samer ali وأخي مبتدئ جرئ وأخي إياد بيك كما أرجو من اساتذتي الكرام مشرفين منتدى الأكسس تقيمه مع ملاحظتي بالتالي :

1- لم أقم بحجز مساحة للمتغير لعدم إلمامي بها ، كيف أقوم بحجز مساحة للمتغير في كودات هذا البرنامج على سبيل المثال وإذا كانت أية دروس عن حجز مساحة للمتغير أرجو إفادتي بها .

2- ماذا تعني Private Sub dy_afterupdate()

* ماذا تعني Me في if me.yrs > =3

* ماذا تعني Private Sub dy_lostfocus()

* تعني baqy الباقي من الاشتراك أي بعد ما تخصم الإشتراك من المكافأة ، tomo تعني إجمالي المكافأة ، ajz تعني العجز تعني العجز كيف تكون الجملة الشرطية إذا الإشتراك أكبر من المكافأة الباقي = الإشتراك - المكافأة والعجز = 0 ، إذا كان الإشتراك أصغر من المكافأة الباقي = 0 والعجز = المكافأة - الإشتراك

مكافأة نهاية الخدمة لموظفي القطاع الخاص.rar

يالله أخواني صارلي 9 أيام أنتظر الرد على هذا الموضوع وما حصلت إفادة ما أدري ما هو السبب إذا المشكلة في شرح النقاط من 1 غلى 3 أرجو إفادتي عن النقطة الأخيرة

يرجى عدم استخدام زر التقرير لهذا الغرض، زر التقرير لم يوضع ليعمل كجرس النادل تطرقه عندما تحتاجه وإنما للمشاركات المزعجة والمسيئة قريباً سيتم إزالته إن استمريتم على هذا النحو.

إسمحلي أخي العزيز ما كانت عندي أي فكره عنه أنه يعمل مثل ما أخبرتني به

يا أخوان أرجو التكرم بالرد عليّ

أخواني الكرام ما زلت أنتطر الرد ما هي المشكلة لعدم الرد على هذا الموضوع

في النموذج المرفق tomo تعني إجمالي المكافأة ، isms تعني الإشتراك ، baqy تعني الباقي ، Ajz تعني العجز الجملة الشرطية إذا كان الإشتراك أكبر من المكافأة إذن الباقي = الإشتراك - المكافأة والعجز = 0 ، إذا كان الإشتراك أقل من المكافأة إذن الباقي = 0 والعجز = المكافأة - الإشتراك

مكافأة نهاية الخدمة لموظفي القطاع الخاص.rar