اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

المعاش = إجمالي الراتب * 4% * 15

المنحة = إجمالي الراتب / 2 * 15

المكافأة = 0

الاشتراك = 0

صافي المنحة = المنحة

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

المستحقات التقاعدية.rar

قام بنشر

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

قام بنشر (معدل)

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

 

حاولت اساعدك ، ولكن مرفقك ما كان فيه بيانات  :eek2:

ولا كان فيه مثال اقدر اطبقه عليه  :eek2:

 

كود حساب الفرق بين تاريخين (موجود في الاكسس ، اذا ضغطت على F1 وانت في VBA):

Function YMDDif(sDate1, sDate2)

    'sdate1 earliest date sdate2 later

    Dim iYear As Integer
    Dim iMonth As Integer
    Dim iDay As Integer
    Dim dInterim1 As Date

    iMonth = DateDiff("m", sDate1, sDate2)
    If Day(sDate1) > Day(sDate2) Then
        iMonth = iMonth - 1
    End If
    dInterim1 = DateAdd("m", iMonth, sDate1)
    iDay = DateDiff("d", dInterim1, sDate2)
    
    D = iDay
    M = iMonth Mod 12
    y = iMonth \ 12

    YMDDif = CStr(y) & " Years " & CStr(M) & " months " & CStr(D) & " days"
End Function

جعفر

تم تعديل بواسطه jjafferr
قام بنشر

أشكرك أخي جعفر الامثلة

تاريخ التعيين 5/2/1995 تاريخ التقاعد 5/4/2015 مدة العمل 20 سنة و1 شهر و28 يوم شهر 2 في سنة 1995 فيه 28 يوم نعرف إذا قسمنا السنة على 4 إذا طلع الناتج عدد كسر إذن شهر 2 في السنة فيه 28 يوم وإذا طلع عدد صحيح يكون فيه 29 يوم

تاريخ التعيين 5/2/1996 تاريخ التقاعد 5/4/2015 مدة العمل 19 سنة و1 شهر و29 يوم شهر 2 في سنة 1996 فيه 29 يوم

الأشهر 1 و 3 و 5 و 7 و 8 و 10 و 12 فيها 31 يوم

الأشهر 4 و 6 و 9 و 11 فيها 30 يوم

قام بنشر

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

 

حاولت اساعدك ، ولكن مرفقك ما كان فيه بيانات  :eek2:

ولا كان فيه مثال اقدر اطبقه عليه  :eek2:

 

كود حساب الفرق بين تاريخين (موجود في الاكسس ، اذا ضغطت على F1 وانت في VBA)

قام بنشر

مثال 1 تاريخ التعيين 29/3/1997 تاريخ التقاعد 10/3/2015 مدة العمل 17 سنة و11 شهر و12 يوم

مثال 2 تاريخ التعيين 5/2/1995 تاريخ التقاعد 5/4/2015 مدة العمل 20 سنة و1 شهر و0يوم

قام بنشر

اخي الفاضل

 

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

 

 

جعفر

قام بنشر

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

قام بنشر

طريقة الإحتساب المتبعة لدينا في إحتساب مدة العمل : 

تاريخ التعيين 29/3/1997 تاريخ التقاعد 10/3/2015

نذهب لسنة التعيين شهر 3 فيه 31 يوم 31-28 = 3

الأشهر 12-3=9

سنة التقاعد عمل لغاية يوم 9

أشتغل شهر 2 بالكامل

السنوات 2015 - 1998 = 17

الإجمالي 

سنة التعيين   3 يوم     9 شهر       0 سنة

سنة التقاعد   9 يوم     2 شهر      17 سنة

إجمالي       12 يوم    11 شهر    17 سنة

لما نعمل الفرق بين تاريخين يطلع ناتج مدة العمل غير صحيح

قام بنشر

تفضل  :smile:

 

 

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

 

 

ياريت من البداية قلت هذا الكلام  :smile:

 

مثل ما اخبرتك سابقا:

كود حساب الفرق بين تاريخين (موجود في الاكسس ، اذا ضغطت على F1 وانت في VBA)

 

 

فهو يحسب المدة ، آخذ في الاعتبار السنوات الكبيسة والبسيطة  :smile:

 

 

جعفر

24.المستحقات التقاعدية.accdb.zip

  • Like 1
قام بنشر

أشكرك أخي جعفر على إهتمامك ما زال يطلع عندي خطأ في التقرير

في المثال الأول النموذج يطلع الناتج 17 سنة و11 شهر و10 يوم من المفترض على حسابنا نحن 17 سنة و11 شهر و12 يوم

المثال الثاني النموذج يطلع الناتج 20 سنة و2 شهر و0 يوم من المفترض على حسابنا نحن 20 سنة و1 شهر و28 يوم

قام بنشر

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

post-142744-0-38412000-1426483471_thumb.

Date.rar

قام بنشر

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

post-142744-0-36205000-1426520126_thumb.

قام بنشر

يعني انت ما تريد طريقة حسابي ، وانما تريد طريقة حسابك ، صح؟

 

لوسمحت تعبئي لي نموذج وترسله ، لاني مافهمت قصدك  :eek2:

 

جعفر

قام بنشر

أخي الفاضل

 

رجاء توضح وتشرح زيادة ، لاننا ما فاهمين بعض!!

 

1. انت: 

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

 

2. انا:

كود حساب الفرق بين تاريخين (موجود في الاكسس ، اذا ضغطت على F1 وانت في VBA) ، فهو يحسب المدة ، آخذ في الاعتبار السنوات الكبيسة والبسيطة   :smile:

 

3. انت:

ما زال يطلع عندي خطأ في التقرير ، 

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

 

4. انا:

عني انت ما تريد طريقة حسابي ، وانما تريد طريقة حسابك ، صح؟

لوسمحت تعبئي لي نموذج وترسله ، لاني مافهمت قصدك

 

5. انت:

مرفق أمثلة

post-142414-0-63603200-1426581056_thumb.

 

 

6. انا:  :

ايش دخل المثال اللي ارسلته في رقم 5 ، بالطريقة اللي عرضتها في الرقم 3؟

الله يخليك:

أ- هل تريد ان تستعمل الكود (وليس شكل النموذج) ، هل تريد استعمال الكود اللي انا اعطيتك او الكود اللي انت تستعمله؟

ب- رجاء عبئ لي مثال على نفس النموذج اللي تريدني اعمل لك الكود عليه (يعني اريد اعرف اخلي الارقام في اي حقول).

 

 

جعفر

قام بنشر

 

الله يخليك:

أ- هل تريد ان تستعمل الكود (وليس شكل النموذج) ، هل تريد استعمال الكود اللي انا اعطيتك او الكود اللي انت تستعمله؟

 

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

 

ب- رجاء عبئ لي مثال على نفس النموذج اللي تريدني اعمل لك الكود عليه (يعني اريد اعرف اخلي الارقام في اي حقول).

 

المثال مرفق

 

 

 

النموذج المطلوب.rar

قام بنشر

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

 

مرفق هو نتيجة البرنامج اللي ارفقته انت ، ويعطي نف النتيجة اللي طلبتها:

 post-142414-0-85743200-1426686950_thumb.

 

 

يعني برنامجك يعطي النتائج اللي تريدها بالنموذج اللي تريده ،

شو المطلوب اذا؟

 

جعفر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information