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

[hussamjjk]

ارجو المساعدة لتكملة المشروع وجزاكم الله الف خير

New Microsoft Access Database (2).accdb

[ابوآمنة]

انظر المرفق لعله يفيد في احصاء سنوات الخدمة والإجازات

بالتوفيق

رصيد الإجازات التراكمي.accdb

[hussamjjk]

ابوآمنة سلام عليكم . اشكرك عالتعديل المبهر لكن هناك شيء لم افهمه ياريت تفهمو الي اذا لم يكن هناك ازعاج . واشكرك مرة ثانية انا.

على اي اساس يتم عمل الاجازات ., كل سنة بيعطي اجازات تختلف 

[د.كاف يار]

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

 

تفضل في المرفقات

برنامج شئون الموظفين.rar

[hussamjjk]

@د.كاف يار مبدع بالتصميم ,, اشكرك اخي ربي يوفقك 

[ابوآمنة]

كل شهر للموظف إجازة لمدة 3 أيام بالتالي في السنة يكون رصيد الإجازة السنوي 36يوم 

معادلة حساب رصيد الإجازة السنوية

Expr1: DateDiff("m";[EmpD];[dateNow])*3

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

' حساب السنة
y: DateDiff("yyyy";[EmpD];Date())+(Date()<DateSerial(Year(Date());Month([EmpD]);Day([EmpD])))
'حساب الشهر
trueM: IIf(DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date())<0;DateDiff("m";DateAdd("yyyy";[y];[EmpD]);Date())-1;DateDiff("m";DateAdd("yyyy";[Y];[EmpD]);Date()))
'حساب الأيام
DAY: IIf(DateDiff("d";DateAdd("m";IIf(DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date())<0;DateDiff("m";[EmpD];Date())-1;DateDiff("m";DateAdd("yyyy";[y];[EmpD]);Date()));[EmpD]);Date())>30;DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date());DateDiff("d";DateAdd("m";IIf(DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date())<0;DateDiff("m";[EmpD];Date())-1;DateDiff("m";DateAdd("yyyy";[y];[EmpD]);Date()));[EmpD]);Date()))

وهذا المثال من المنتدى 

[د.كاف يار]

اخي الكريم يوجد خطأ في معادلة حساب الاجازة السنوية

 

دعنا نفترض ان الاجازة السنوية للموظف عبدالله هي  أساس 21 يوم اجازة اعتبارية + ايام العطل الرسمية ليصبح الاجمالي هو 30 يوم في السنة

تاريخ تعيين عبدالله هو : 2000/01/01

التاريخ الحالي هو : 2005/01/01

عدد سنوات العمل للموظف عبدالله هي : 5 سنوات = ( 60 شهر )

عبدالله يستحق شهريا 2.5 يوم × 60 = 150 يوم من تاريخ التعيين و حتى تاريخ طلب الاجازة و يكون الرصيد ناقص هذه المدة في حال تم الاستفادة من رصيد سابق

 

قبل مروري و دمتم و الجميع في رعاية الله و حفظه ,,, ,

 

[ابوآمنة]

تختلف الاجازة السنوية "عادية/ الاعتيادية" من جهة إلى جهة أخرى فالدوائر الحكومية السعودية تنص على استحقاق الموظف اجازة وقدرها 36 يوم في السنة .

 

[ابو عارف]

السلام عليكم

الحل على حسب عنوان الموضوع أخي @hassam0k

New Microsoft Access Database (2).accdb

افتح استعلام Q1 و انظر النتيجة

تم تعديل أغسطس 19, 2019 بواسطه ابو عارف