عمل دوال لحساب الخدمة

اخي الفاضل

اعتبر ان البرنامج جديد وليس به اي معلومات لهذا سوف تبدأ بإدخال سجلات جديده وستكون التواريخ للموظفين الذين ليس لهم انقطاع او خدمه اضافية هي بتاريخ اليوم اي بتاريخ انشاء السجل الجديد

اما اذا كان لديك سجلات قليلة في البرنامج في حدود 10 - 15 سجل فبإمكانك التعديل على تواريخ الموظفين الذين ليس لهم انقطاع او خدمه اضافية بتاريخ اليوم وبعد ذلك استمر في ادخال السجلات الجديده

هذه افضل الطرق للتخلص من جميع الأخطاء التي ستظهر لك

بالتوفيق

الأخت الفاضلة زهرة

بارك الله لك على ما تقدمين من خدمة عظيمة لكل المجتهدين

.....

ولكن يبدو أن الكود الأخير به بعض الخلل

والدليل كما بالصورة المرفقة

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

.....

بالإضافة إلى فكرة أخرى

هل يحسب الكود الفرق بين التاريخين مع مراعاة أن عدد ايام الشهور تختلف من 28 إلى 29 إلى 30 إلى 31؟

mas123 كتب:

الأخت الفاضلة زهرة

بارك الله لك على ما تقدمين من خدمة عظيمة لكل المجتهدين

.....

ولكن يبدو أن الكود الأخير به بعض الخلل

والدليل كما بالصورة المرفقة

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

.....

بالإضافة إلى فكرة أخرى

هل يحسب الكود الفرق بين التاريخين مع مراعاة أن عدد ايام الشهور تختلف من 28 إلى 29 إلى 30 إلى 31؟

اخي الفاضل : محمد صالح

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

وكل عام وانتم بخير

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

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

2. قد يكون هناك لديك لبس في فهم الموضوع او طريقة عمل البرنامج وهي كالتالي للتوضيح :

لنأخذ مثلا اول سجل وهو ( أحمد زاهر ) حاول تركز معي اخي محمد صالح

1. احمد زاهر توظف بتاريخ 04/07/2001 واستلم العمل وقامت الإدارة مشكوره بعمل مباشره اولى له لأنه سوف يستلم نهاية الشهر راتب . ( هذه المباشرة الأولى لهذا الموظف من تاريخ تعيينه ) كما هو واضح من الصوره .

2. استمر الموظف ( احمد زاهر ) في العمل حتى تاريخ 09/09/2009 ثم جاءته ظروف وانقطع عن العمل

3. قام المحاسب بطي قيد هذا الموظف وحسب له الخدمه من تاريخ مباشرته الأولى بتاريخ 04/07/2001 وحتى تاريخ انقطاعه عن العمل 09/09/2009 ولهذا ستكون عدد سنوات هذا الموظف من تاريخ مباشرته الأولى وحتى انقطاعه هي 8 سنوات و 2 شهر و 6 أيام

هل هذا الكلام صحيح اخي محمد صالح ام لا ؟؟

اذا كانت الإجابه نعم نستمر في الشرح

4. عاد الموظف ( احمد زاهر ) الى العمل بتاريخ 14/10/2011 وابدى عذره الذي بسببه انقطع عن العمل وقبلت الإدارة اعادته للعمل وخلال فترة انقطاعه عن العمل لم يستلم اي رواتب ولهذا قام المحاسب بحساب فترة انقطاعه عن العمل ووجدها 2 سنه و 1 شهر و 4 ايام . وخلال هذه الفتره كما اسلفنا ليس له حقوق فيها .

5. قامت الإدارة مشكورة بعمل له مباشرة ثانية من تاريخ عودته للعمل وهو 14/10/2011 و من هذا التاريخ وحتى الآن هو مستمر في العمل ولم ينقطع ( هنا حصل لديك اللبس في الموضوع اخي محمد صالح ) ولهذا البرنامج يكتب لك لم ينقطع عن العمل من تاريخ المباشرة الثانية اي منذ عودته حتى الآن . ولو تراجع الكود في نفس الحقل ستجده صحيحا ولا غبار عليه . ( هل وصلت الفكره ) !!!!

6 . الموظف ( احمد زاهر ) لديه خدمة اضافية من تاريخ 07/07/2000 الى تاريخ 20/07/2001 وستكون مدة الخدمة الإضافية 1 سنه وصفر شهر و 13 يوم

7. قام المحاسب بجمع سنوات الخدمه من تاريخ مباشرته الأولى 04/07/2001 الى تاريخ انقطاعه عن العمل 09/09/2009 واضاف لها سنوات الخدمة الإضافية من تاريخ 07/07/2000 الى تاريخ 20/07/2001 فأصبح مجموع سنوات خدمة هذا الموظف هي 9 سنوات و 2 شهر و 19 يوم . ( كما هو واضح في الصوره .

بالنسبة لسؤالك هل البرنامج يحسب الفروقات بين التاريخين ويراعي الأشهر الناقصة والزائده فبكل تأكيد انه يقوم بهذا العمل على اكمل وجه فمثلا لو اخذت الداله FormattedDateDif لوحدها من الوحده النمطية وضعت حقلي تاريخ وقمت بإستدعاء الداله فسوف تحسب لك السنوات والأشهر والأيام بدقه متناهيه . ( ركز معي يا أخي محمد صالح ) فلو اخذنا مثلا احد الأشهر الزائده او الناقصة ووضعناه في الداله فسوف يحسب لك عدد ايام الشهر بالتمام والكمال سواء كان عدد الأيام 31 او 28 على حسب بداية الشهر ونهايته المدخله .

نأتي الآن الى موضوع آخر ويجب الإنتباه له بعنايه :

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

ولهذا لو تنظر في المعادلات الموجوده في حدث الحالي للنموذج FORM ستتعرف على الطريقة .

اتمنى انني وضحت لك بعض الأمور فيما يخص هذا الموضوع وإزالة الغموض او اللبس .

بالتوفيق

أختي الفاضلة

الحمد لله لقد ركزت معك أشد التركيز

ولكن لست أدري

ما الفرق بين هذه الصورة

وهذه الصورة

ففي الصورة الأولى تم احتساب المدة من تاريخ نهاية الانقطاع إلى الآن

وفي الصورة الثانية : لم ينقطع عن العمل

........

أما بالنسبة لموضوع احتساب المدة بصورة دقيقة يجب مراعاة عدد الأيام في الشهور 28 و 29 و 30 و 31

وإذا اعتمدنا الطريقة السائدة بأن كل الشهور 30 وكل السنين 365

نجد أيضا بعض الاختلاف بين دالتك ودالة كنت قد صممتها لهذا الغرض وبنفس الطريقة السائدة (رغم اعترافي بخطأ هذه الطريقة)

وهذا كود الدالة

Function date_diff(oldd As Date, newd As Date) As String
Dim years, months, days As Integer
years = Year(newd) - Year(oldd)
If Month(newd) < Month(oldd) Then
years = years - 1
months = (Month(newd) + 12) - Month(oldd)
Else
months = Month(newd) - Month(oldd)
End If
If Day(newd) < Day(oldd) Then
months = months - 1
days = (Day(newd) + 30) - Day(oldd)
Else
days = Day(newd) - Day(oldd)
End If
date_diff=years & " عام و " & months & " شهر و " & days & " يوم"
End Function

ولا أدري أيضا ما سبب الاختلاف بين نتيجة الدالتين ماداما بنيا على نفس الفكرة السائدة في حساب المدة بين تاريخين

اخي الفاضل محمد صالح

البرنامج يعمل بشكل ممتاز ولا يوجد به اي اخطاء

رجاء حاول تركز لأنك حتى الآن لم تستوعب فكرة البرنامج

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

بالنسبة للإختلاف في اليوم الذي بيني وبينك فقد يرجع الى عدة اسباب :

1. اختلاف استخدام التقاويم فأنا حاليا استخدم تقويم ام القرى وهو المعتمد لدينا

2. قد يكون اختلاف المنطقة الزمنية .

3. قد يكون انك استخدمت مباشرة عدد اشهر السنه ( 12 شهر ) في الكود بينما انا استخدمت تحديدا 360 يوم بإعتبار ان كل شهر 30 يوما في جميع الأشهر حتى لا ادع مجالا للشك بأنه سيكون هناك نقص او زياده .

ولهذا يرجع فرق اليوم في الحساب وهي نتيجة مقاربه جدا ولا تعتبر من الإخطاء الفادحه التي يجب اعادة النظر فيها فيما لو كان الإختلاف بأكثر من 5 ايام او شهر فهنا يكون خطأ في الكود ولم يتم برمجته بالطريقة الصحيحة .

بالتوفيق

السلام عليكم

شرح ممتاز

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

اذا امكن جعل النتائج في استعلام

zahrah كتب:

اخي الفاضل محمد صالح

البرنامج يعمل بشكل ممتاز ولا يوجد به اي اخطاء

رجاء حاول تركز لأنك حتى الآن لم تستوعب فكرة البرنامج

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

بالنسبة للإختلاف في اليوم الذي بيني وبينك فقد يرجع الى عدة اسباب :

1. اختلاف استخدام التقاويم فأنا حاليا استخدم تقويم ام القرى وهو المعتمد لدينا

2. قد يكون اختلاف المنطقة الزمنية .

3. قد يكون انك استخدمت مباشرة عدد اشهر السنه ( 12 شهر ) في الكود بينما انا استخدمت تحديدا 360 يوم بإعتبار ان كل شهر 30 يوما في جميع الأشهر حتى لا ادع مجالا للشك بأنه سيكون هناك نقص او زياده .

ولهذا يرجع فرق اليوم في الحساب وهي نتيجة مقاربه جدا ولا تعتبر من الإخطاء الفادحه التي يجب اعادة النظر فيها فيما لو كان الإختلاف بأكثر من 5 ايام او شهر فهنا يكون خطأ في الكود ولم يتم برمجته بالطريقة الصحيحة .

بالتوفيق

شاكر جداً لجهودك وسعة صدرك أختي الفاضلة

ولكن

الصورة الأولى بالفعل هي للسجل الأخير ولا يوجد بها مشاكل (حتى الآن)

والصورة الثانية ليست كما شرحت سيادتكم أنها للسجل الخامس وإنما هي للسجل الأول

راجعي تحليلك لهذه الصورة في المشاركة 28

/index.php?showtopic=250783&view=findpost&p=1240584

وإذا سمحت لي ببعض التعديل في السجل الأخير

بتعديل تاريخ نهاية الخدمة الإضافية

ظهر الناتج كما بالصورة

..........

وبالنسبة لموضوع الدالتين

فلا يؤثر مطلقاً التقويم ولا المنطقة الزمنية

لأننا نحسب تقويم موحد (ميلادي) ولآن الدالتين على جهاز واحد بإعدادات واحدة

أما بالنسبة للسبب الثالث فنحن في مصر نقوم بحساب المدة بهذه الآلية المتبعة في دالتي:

عدد السنوات يساوي ناتج طرح : العام في التاريخ الجديد - العام في التاريخ القديم

وإذا كان الشهر في التاريخ الجديد أقل منه في التاريخ القديم يتم إنقاص السنين سنة وزيادة الشهر في التاريخ القديم (الصغير) ما قيمته سنة ولكن بعد تحويلها إلى شهور فنضيف عليه 12 ثم نطرح

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

ونفس الأمر مع الأيام

فهل هذه الآلية ليست هي نفسها المتبعة لديكم في دول الخليج؟؟!!

mas123 كتب:

شاكر جداً لجهودك وسعة صدرك أختي الفاضلة

ولكن

الصورة الأولى بالفعل هي للسجل الأخير ولا يوجد بها مشاكل (حتى الآن)

والصورة الثانية ليست كما شرحت سيادتكم أنها للسجل الخامس وإنما هي للسجل الأول

راجعي تحليلك لهذه الصورة في المشاركة 28

/index.php?showtopic=250783&view=findpost&p=1240584

وإذا سمحت لي ببعض التعديل في السجل الأخير

بتعديل تاريخ نهاية الخدمة الإضافية

ظهر الناتج كما بالصورة

..........

وبالنسبة لموضوع الدالتين

فلا يؤثر مطلقاً التقويم ولا المنطقة الزمنية

لأننا نحسب تقويم موحد (ميلادي) ولآن الدالتين على جهاز واحد بإعدادات واحدة

أما بالنسبة للسبب الثالث فنحن في مصر نقوم بحساب المدة بهذه الآلية المتبعة في دالتي:

عدد السنوات يساوي ناتج طرح : العام في التاريخ الجديد - العام في التاريخ القديم

وإذا كان الشهر في التاريخ الجديد أقل منه في التاريخ القديم يتم إنقاص السنين سنة وزيادة الشهر في التاريخ القديم (الصغير) ما قيمته سنة ولكن بعد تحويلها إلى شهور فنضيف عليه 12 ثم نطرح

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

ونفس الأمر مع الأيام

فهل هذه الآلية ليست هي نفسها المتبعة لديكم في دول الخليج؟؟!!

اخي الفاضل : محمد صالح

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

اولا : اشكرك عل هذه المداخلة القيمه لإثراء الموضوع

ثانيا : لا يوجد اي خطأ في استخدام دالة الفرق بين تاريخين " FormattedDateDif " والسبب انها تعمل بشكل سليم لا غبار عليه وسأشرح لك اين وقع الخطأ الذي ظهر لك في الصوره بعد تعديلك على التاريخ

ثالثا : عندما وضعنا صورة الجدول للشرح وكتبنا عليه ( الصورة الأولى و الصوره الثانية ) فإن القصد منه هو ( الوضع الأول و الوضع الثاني ) وليست الصور التي تم ارفاقها في المشاركه انما كان المقصود ما هو موجود في صورة الجدول فقط اي سجل احمد زهر وسجل زهره محمد .

رابعا : قبل ان تفتح الملف المرفق الأخير افتح الملف المرفق لديك مسبقا za-EmpWork-LAST4 ثم افتح النموذج FORM في وضع التصميم وستجد في الحقل الذي انت اشرت الية في الصوره ( لا يوجد خدمة اضافية ) عبارة

=IIf(Val(FormattedDateDif("yy سنه  و  mm شهر  و  dd يوم";[start1];[start2]))=0;"لا يوجد خدمة إضافية";FormattedDateDif("yy سنه  و  mm شهر  و  dd يوم";[start1];[start2]))

استبدلها بـ

=FormattedDateDif("yy سنه  و  mm شهر  و  dd يوم";[start1];[start2]))

الآن احفظ النموذج وقم بإغلاقه ثم افتح نموذج tabll واذهب الى نفس السجل الذي اشرت اليه انت في الصوره بعد تعديل التاريخ وانظر ماذا تلاحظ

بالتأكيد انك ستلاحظ مثل هذه الصوره تماما

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

خامسا : بالنسبة لألية العمل في مثل هذا الموضوع ( الفرق بين تاريخين ) فهي نفس الآلية المتبعه لديكم ولا يوجد هناك اي فرق فهي نفس طريقة الحساب بدون اي اختلاف فيما يخص السنوات والأشهر والأيام .

ولكن سأبحث واتأكد عن سبب زيادة هذا اليوم بيني وبينك في الأكواد وانت ايضا حاول ان تبحث وتتفحص الأكواد فمصير هذه الزياده او النقصان ستظهر وليست مشكله مستعصيه

الملف الأخير بعد التعديل

za-EmpWork-LAST5.rar

بالتوفيق

شكرا لك أختي الفاضلة أم عهود

وجاري تصميم دالة لقراءة ناتج دالة date_diff الخاصة بي والتعامل معها بالجمع والطرح

وأعتقد أن هذا هو المطلوب الأساسي لصاحب الموضوع

السلام عليكم

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

اذا امكن جعل النتائج في استعلام

shamal كتب:

السلام عليكم

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

اذا امكن جعل النتائج في استعلام

اخي الفاضل

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

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

عموما تفضل الملف بعد التعديل واضافة الإستعلام له

za-EmpWork-LAST5-Query.rar

بالتوفيق

السلام عليكم

ولكن المشكلة في اظهار المجموع النهائي للخدمة

اي الحقل الاخير

الله يبارك فيك

shamal كتب:

السلام عليكم

ولكن المشكلة في اظهار المجموع النهائي للخدمة

اي الحقل الاخير

الله يبارك فيك

اخي الكريم

لا يمكن اظهار المجموع النهائي للخدمه في الإستعلام بتجميع هذه النصوص إلا عن طريق النموذج او الكود بعد ازالة كلمة ( سنه و شهر و يوم ) من العبارات وهذا يتم فقط في النموذج بواسطة معادلات الوقت والتاريخ

وعلى افتراض اننا قمنا بعملية المجموع النهائي في الإستعلام فستكون النتيجه مثلا لأي موظف تم جمع جميع عدد سنوات خدمته بهذه الطريقة ( 11 سته و 18 شهر و 45 يوم ) وطبعا هذا خطأ لأن الإستعلام يقوم بعملية الجمع فقط ولا عليه من النتيجة اما في النموذج او الكود فنستطيع عمل الدوال اللازمه للتفريق بين السنوات والشهور بحيث لا تززيد عن 12 شهر وما زاد يتحول الى سنوات وايضا الأيام بحيث لا تزيد عن 31 يوم وما زاد يتحول الى اشهر .

بالتوفيق

ماذا إذا تعددت مدد الخدمة الإضافية؟؟

أو تعددت مدد الانقطاع عن العمل؟؟

mas123 كتب:

ماذا إذا تعددت مدد الخدمة الإضافية؟؟

أو تعددت مدد الانقطاع عن العمل؟؟

اخي الفاضل محمد صالح

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

فقد يكون هذا الشخص لديه خدمة اضافية لمدة سنه وستة اشهر في ارامكو ( خدمه اضافية اولى )

وقد يكون ان لديه خدمه اضافية ثانية لمدة اريع سنوات وثمانية اشهر في المطار ( خدمة اضافية ثانية )

وقد يكون عمل في الحراسات الإمنية لمدة 10 سنوات وثلاثة اشهر ( خدمة اضافية ثالثه )

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

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

الذي يحسب فقط هو مدة الخدمة الفعليه ومدد الخدمة الإضافيه .

بالتوفيق

شكرا لك أخت زهرة على ما تقدمين

ولعل هذا الرابط يفيد صاحب الموضوع

/index.php?showtopic=251287

تحية طيبة للجميع ..

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

مع فائق الاحترام ..

اخواتي اخواني الاعزاء تحية مفعمة بالحب للجميع ..

انا قرات الموضوع فالموضوع قيم وجيد وهذا ماكنت ابحث عنه من قرابة 6 اشهر لكن لم يتم تصحيح احتساب المدة الكلية بالنموذج فبقي الكود بالنموذج يحسب 15 شهر وليس سنة و3 اشهر راجين تصحيح الكود لكي يصبح البرنامج متكامل ..

مع التقدير للجميع ..

تحية طيبة ..

طلبي كود المجموع النهائي بالنموذج لاحتساب الخدمة الفعلية والاضافية وكل الخدمة..

مع  التقدير