الاجازات

[ابراهيم_]

السلام عليكم 

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

اذا كانت قيمة الحقل مستمر في الخدمة / اعادة تعيين تساوي مستمر 

شكراً مقدماً لكل من ساعدني او حاول مساعدتي 

جديد.accdb

[Eng.Qassim]

اهلا بك استاذ @ابراهيم_

ممكن توضح اكثر ... ياريت تعطينا مثال لشخص معين

هاي اول مرة تمر علي ...اخوك هم عراقي بس اريد افتهم شنو الموضوع

لم يسبق لي ان مرت علي هكذا امور !!

[kkhalifa1960]

هل هذا ماتقصده أخي اليك المرفق .

 

جديد-1.accdb

تم تعديل مارس 3, 2023 بواسطه kkhalifa1960

[ابراهيم_]

10 ساعات مضت, kkhalifa1960 said:

هل هذا ماتقصده أخي اليك المرفق .

 

جديد-1.accdb 736 kB · 7 downloads

شكرأ جزيلاً اخي العزيز رحم الله و الديك نعم هذا هو قصدي 🌺

 

11 ساعات مضت, Eng.Qassim said:

اهلا بك استاذ @ابراهيم_

ممكن توضح اكثر ... ياريت تعطينا مثال لشخص معين

هاي اول مرة تمر علي ...اخوك هم عراقي بس اريد افتهم شنو الموضوع

لم يسبق لي ان مرت علي هكذا امور !!

شكرأ لك اخي العزيز تم حل المشكلة 

[متقاعد]

17 ساعات مضت, ابراهيم_ said:

اريد تجميد حقل تاريخ ترك التعيين و حقل تاريخ اعادة التعيين و حقل قبل اعادة التعيين 

اضافة لما اشار اليه الاستاذ خليفة

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

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

ثم تنسيق ثم قاعدة جديد ثم تعبير ونضع فيه التعبير التالي

[ss1]="مستمر"

ثم اختيار تمكين عدم تمكين

الشرح في الصورة المرفقة

[Ahmed_J]

السلام عليكم

عذرا لكافة الاخوة الاعزاء

سؤالي للاخ @ابراهيم_

هل هو برنامج لحساب خدمة الموظف؟

اذا كان كذلك من الافضل عمل :-

1- خدمة الموظف 

2- فترة الانقطاع

3- اضافة خدمة وهذه تنقسم لعدة اقسام ( عقد وغيرها)

4- المجموع النهائي للخدمة

تحياتي

 

[ابراهيم_]

5 ساعات مضت, متقاعد said:

اضافة لما اشار اليه الاستاذ خليفة

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

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

ثم تنسيق ثم قاعدة جديد ثم تعبير ونضع فيه التعبير التالي

[ss1]="مستمر"

ثم اختيار تمكين عدم تمكين

الشرح في الصورة المرفقة

شكراً جزيلاً لك الله يوفقك ان شاء الله 🌺

 

5 ساعات مضت, Ahmed_J said:

السلام عليكم

عذرا لكافة الاخوة الاعزاء

سؤالي للاخ @ابراهيم_

هل هو برنامج لحساب خدمة الموظف؟

اذا كان كذلك من الافضل عمل :-

1- خدمة الموظف 

2- فترة الانقطاع

3- اضافة خدمة وهذه تنقسم لعدة اقسام ( عقد وغيرها)

4- المجموع النهائي للخدمة

تحياتي

 

السلام عليك اخي الكريم 

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

لكن ممكن توضيح 

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

و في النقطة الثانية تقصد مدة ترك التعيين 

 

[Ahmed_J]

السلام عليكم

اخي @ابراهيم_

هل تريد نموذج لحساب الخدمة كما في الصورة

 الخدمة الفعلية + الخدمة المضافة - فترة الانقطاع = الخدمة الكلية

تحياتي

تم تعديل مارس 4, 2023 بواسطه Ahmed_J

[ابراهيم_]

5 ساعات مضت, Ahmed_J said:

السلام عليكم

اخي @ابراهيم_

هل تريد نموذج لحساب الخدمة كما في الصورة

 الخدمة الفعلية + الخدمة المضافة - فترة الانقطاع = الخدمة الكلية

تحياتي

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

نعم اكون ممنون منك 

[Ahmed_J]

السلام عليكم

تفضل اخي العزيز 

في الملف المرفق يعمل البرنامج بعد ادخال تاريخ المباشرة بالوظيفة

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

ملاحظة : قم بتدقيق الايام احتمال في فرق يوم بالدالة

تحياتي

test.accdb

تم تعديل مارس 5, 2023 بواسطه Ahmed_J

[ابراهيم_]

27 دقائق مضت, Ahmed_J said:

السلام عليكم

تفضل اخي العزيز 

في الملف المرفق يعمل البرنامج بعد ادخال تاريخ المباشرة بالوظيفة

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

ملاحظة : قم بتدقيق الايام احتمال في فرق يوم بالدالة

تحياتي

test.accdb 548 kB · 0 downloads

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

مشكور اخي العزيز في ميزان حسناتك ان شاء الله

رحم الله و الديك  

[Eng.Qassim]

في 5‏/3‏/2023 at 17:06, Ahmed_J said:

قم بتدقيق الايام احتمال في فرق يوم بالدالة

استاذ احمد @Ahmed_J

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

طبعا من خلال مربع نص تمرر تاريخ التعيين وتاريخ اليوم ..سوف يعطيك سنوات الخدمة كامل

اما اردت الفصل..يعني السنة مثلا في مربع نص وحده استخدم =Mid(DateDiffExact([EmpDate],Date()),1,2) وهكذا للبقية

Function DateDiffExact(startDate As Date, endDate As Date) As String
    Dim years As Long, months As Long, days As Long
    Dim startY As Long, startM As Long, startD As Long
    Dim endY As Long, endM As Long, endD As Long
    startY = Year(startDate)
    startM = Month(startDate)
    startD = Day(startDate)
    endY = Year(endDate)
    endM = Month(endDate)
    endD = Day(endDate)
    years = endY - startY
    months = endM - startM
    days = endD - startD
    If days < 0 Then
        days = days + Day(DateSerial(endY, endM + 1, 0))
        months = months - 1
    End If
    If months < 0 Then
        months = months + 12
        years = years - 1
    End If
    DateDiffExact = years & " سنة, " & months & " شهر, " & days & " يوم"

End Function

 

[Ahmed_J]

السلام عليكم

استاذ @Eng.Qassim

شكرا  للمتابعة وتم عمل اللازم والمقارنة مع موقع (Age Calculator)

اتمنى تدقيق الملف  بصورته النهائية وابداء الملاحظة ان وجدت

اخي @ابراهيم_  لمتابعة الموضوع والملف الجديد

تحياتي 

test.accdb

 

تم تعديل مارس 7, 2023 بواسطه Ahmed_J

[ابراهيم_]

20 ساعات مضت, Ahmed_J said:

السلام عليكم

استاذ @Eng.Qassim

شكرا  للمتابعة وتم عمل اللازم والمقارنة مع موقع (Age Calculator)

اتمنى تدقيق الملف  بصورته النهائية وابداء الملاحظة ان وجدت

اخي @ابراهيم_  لمتابعة الموضوع والملف الجديد

تحياتي 

test.accdb 704 kB · 3 downloads

 

مشكور استاذي العزيز في ميزان حسناتك ان شاء الله

[ابراهيم_]

20 ساعات مضت, Ahmed_J said:

السلام عليكم

استاذ @Eng.Qassim

شكرا  للمتابعة وتم عمل اللازم والمقارنة مع موقع (Age Calculator)

اتمنى تدقيق الملف  بصورته النهائية وابداء الملاحظة ان وجدت

اخي @ابراهيم_  لمتابعة الموضوع والملف الجديد

تحياتي 

test.accdb 704 kB · 3 downloads

 

مشكور استاذي العزيز في ميزان حسناتك ان شاء الله