الاجازات

[ابراهيم_]

السلام عليكم 

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

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

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

جديد.accdbFetching info...

[Eng.Qassim]

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

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

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

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

[kkhalifa1960]

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

 

جديد-1.accdbFetching info...

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

[ابراهيم_]

  في 3‏/3‏/2023 at 20:39, kkhalifa1960 said:

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

 

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

Expand  

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

 

  في 3‏/3‏/2023 at 20:12, Eng.Qassim said:

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

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

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

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

Expand  

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

[متقاعد]

  في 3‏/3‏/2023 at 18:34, ابراهيم_ said:

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

Expand  

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

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

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

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

[ss1]="مستمر"

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

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

[Ahmed_J]

السلام عليكم

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

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

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

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

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

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

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

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

تحياتي

 

[ابراهيم_]

  في 4‏/3‏/2023 at 12:20, متقاعد said:

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

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

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

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

[ss1]="مستمر"

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

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

Expand  

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

 

  في 4‏/3‏/2023 at 12:44, Ahmed_J said:

السلام عليكم

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

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

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

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

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

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

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

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

تحياتي

 

Expand  

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

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

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

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

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

 

[Ahmed_J]

السلام عليكم

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

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

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

تحياتي

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

[ابراهيم_]

  في 4‏/3‏/2023 at 20:19, Ahmed_J said:

السلام عليكم

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

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

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

تحياتي

Expand  

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

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

[Ahmed_J]

السلام عليكم

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

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

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

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

تحياتي

test.accdbFetching info...

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

[ابراهيم_]

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

السلام عليكم

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

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

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

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

تحياتي

test.accdb 548 kB · 0 downloads

Expand  

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

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

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

[Eng.Qassim]

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

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

Expand  

استاذ احمد @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.accdbFetching info...

 

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

[ابراهيم_]

  في 6‏/3‏/2023 at 20:16, Ahmed_J said:

السلام عليكم

استاذ @Eng.Qassim

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

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

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

تحياتي 

test.accdb 704 kB · 3 downloads

 

Expand  

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

[ابراهيم_]

  في 6‏/3‏/2023 at 20:16, Ahmed_J said:

السلام عليكم

استاذ @Eng.Qassim

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

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

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

تحياتي 

test.accdb 704 kB · 3 downloads

 

Expand  

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