برجاء المساعدة في حساب الاجازة السنوية

[سامر محمود]

الاخوة الكرام الافاضل 

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

من فضلكم برنامج الاجازات السنوية عندي بيحسب فترة ال 21 يوم من تاريخ التعيين عايز بس اخليه الموظف اللي سنه 50عام فاكثر يحسب الاجازات تكون 30يوم كما بالقانون

ياريت الاخوة اصحاب الخبرة يفيدوني في الجزء ده 

اكون شاكر جدا

 

VACATIONS.rar

[عمر ضاحى]

سؤال جانبي مش المفترض ان فى قاعدة اخري ان الموظف اذا عمل فى الشركة اكثر من 5 سنوات يتحول من 21 يوم الى 30 يوم فى السنه ؟

[سامر محمود]

29 دقائق مضت, عمر ضاحى said:

سؤال جانبي مش المفترض ان فى قاعدة اخري ان الموظف اذا عمل فى الشركة اكثر من 5 سنوات يتحول من 21 يوم الى 30 يوم فى السنه ؟

للاسف مش ثابته لان القانون بيقول اللي اشتغل 10 سنوات عند صاحب عمل او اكثر 

[عمر ضاحى]

طيب تمام 
فين النموذج ال فيه انت بتمنح الاجازة او بيحسب فيها الاجازة

[عمر ضاحى]

جرب الحل هذا 

تم عمل مديول

Function CalcVac(WorkDays As Double, EmpAge As Integer)
WorkDays = WorkDays / 365
If EmpAge < 50 Then
WorkDays = WorkDays * 21
Else
WorkDays = WorkDays * 30
End If
CalcVac = Format(WorkDays, "0.00")
End Function

ولحساب عمر الموظف

=DateDiff("yyyy";[DateOfBirth];Date())

 

ولاستدعاء الدالة 

CalcVac(D2, txtAge)
'CalcVac("اسم حقل اجمالى ايام العمل", "اسم حقل عمر الموظف")

 

وهذه هى النتيجة

 

 

مرفق الملف

VACATIONS-1.rar

[سامر محمود]

59 دقائق مضت, عمر ضاحى said:

جرب الحل هذا 

تم عمل مديول

Function CalcVac(WorkDays As Double, EmpAge As Integer)
WorkDays = WorkDays / 365
If EmpAge < 50 Then
WorkDays = WorkDays * 21
Else
WorkDays = WorkDays * 30
End If
CalcVac = Format(WorkDays, "0.00")
End Function

ولحساب عمر الموظف

=DateDiff("yyyy";[DateOfBirth];Date())

 

ولاستدعاء الدالة 

CalcVac(D2, txtAge)
'CalcVac("اسم حقل اجمالى ايام العمل", "اسم حقل عمر الموظف")

 

وهذه هى النتيجة

 

 

مرفق الملف

VACATIONS-1.rar 212.98 kB · 0 downloads

الاخ الكرم @عمر ضاحى

بشكرك جدا جدا علي مساعدتك الكريمة والفكرة الرائعة بس حضرتك هو في زرار فتح التقرير بيطلع التقرير بالاصدة والممنوحة والرصيد المتبقي هل ينفع اضع ان النتيجة الجديدة دي يتم وضعها بالتقرير لاني بحاول فيها من الصبح مش جاية معايا خالص للاسف معلش وسؤال تاني هو كد بيخلي ايام الموظف اللي عدا ال 50 30 يوم مرة واحدة فقط ولا علي مدار ايام الخدمة بالشركة 

معلش طوزلت عليك وارهقتك بس باعلم من حضرتك

[عمر ضاحى]

طبعا ينفع 
ولاني مش فاهم المفترض الرقم (النتيجة اين يتم وضعها ) فاطريت اجعلها فى رسالة

لكن انت عدل على الكود

ولنفترض ام الحقل الذي تريد اضافة النتيجة فيه اسمه X7

اذا انت هتضعها هكذا

X7=CalcVac(D2, txtAge)

 

txtAge

هو حقل للعمر
ممكن تستغني عن الحقل وتضع هذه المعادلة 

=DateDiff("yyyy";[DateOfBirth];Date())

 

الامر سهل ان شاء الله 

 

اذا تم حل مشكلتك اختر افضل اجابة 😁

[سامر محمود]

بالفعل ده اللي عملته في استعلام التقرير لكن النتيجة غير معلومة خالص استاذي الكريم @عمر ضاحى

[عمر ضاحى]

طيب ممكن توضحلى انت عاوز النتيجة تظهر فين ؟

وايضا اسم التقرير

 

[سامر محمود]

10 دقائق مضت, عمر ضاحى said:

طيب ممكن توضحلى انت عاوز النتيجة تظهر فين ؟

وايضا اسم التقرير

 

في تقرير حالة موظف اجمالية

انا حاولت بس عمل المعادلة علي كل الناس حتي اللي مش جابو 50 عام

معلش والله تعبتك معايا انا اسف

[عمر ضاحى]

2 دقائق مضت, سامر محمود said:

في تقرير حالة موظف اجمالية

انا حاولت بس عمل المعادلة علي كل الناس حتي اللي مش جابو 50 عام

معلش والله تعبتك معايا انا اسف

ابدا والله تحت امرك مفيش تعب ولا حاجه 

هل هذا ما تريده 

 

VACATIONS.rar

[سامر محمود]

منذ ساعه, عمر ضاحى said:

ابدا والله تحت امرك مفيش تعب ولا حاجه 

هل هذا ما تريده 

 

VACATIONS.rar 213.2 kB · 0 downloads

والله انا خجلان من حضرتك  اخي @عمر ضاحى

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

VACATIONS22.rar

[عمر ضاحى]

ما عندي مشكلة 

لكن ادينى شوية علشان انا فى الدوام حاليا

 

[سامر محمود]

الان, عمر ضاحى said:

ما عندي مشكلة 

لكن ادينى شوية علشان انا فى الدوام حاليا

 

زي ماتحب ربنا يعينك انا في انتظارك

[عمر ضاحى]

معلش سؤال 
هي مشكلتك هذه ؟

 

[سامر محمود]

43 دقائق مضت, عمر ضاحى said:

معلش سؤال 
هي مشكلتك هذه ؟

 

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

[سامر محمود]

29 دقائق مضت, سامر محمود said:

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

@عمر ضاحى

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

وقت حضرتك تكون فاضي انا منتظر حضرتك

VACATIONS22.rar

[عمر ضاحى]

ده بسبب ان الشرط ال حضرتك واضعه 

بيشير الى نموذج اخر 
اذا كنت هتستخدم اكثير من نموذج 
بنفس التقرير
اجعل الشرط داخل النموذج نفسه وليس داخل التقرير 
علشان تتفادي الاخطاء هذه

[عمر ضاحى]

هل تريدها هكذا ؟

المرفق

 

 

VACATIONS22.rar

[سامر محمود]

3 ساعات مضت, عمر ضاحى said:

هل تريدها هكذا ؟

المرفق

 

 

VACATIONS22.rar 341.1 kB · 1 download

تمام هو ده بس ارقام تقرير الفرد غير تقرير الاجمالي مش عايزة تظبط 

1 دقيقه مضت, سامر محمود said:

تمام هو ده بس ارقام تقرير الفرد غير تقرير الاجمالي مش عايزة تظبط 

اعذرني معلش النور كان قاطع والله علشان كده اتاخرت علي حضرتك

[عمر ضاحى]

الموضوع كله شبه بعض

سواء فرد واحد او كلهم

ضع الشروط ال بدك ايها

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

علشان تسهل على نفسك وامشي خطوه خطوه

افهم كويس ما تم واكمل انت

[سامر محمود]

1 ساعه مضت, عمر ضاحى said:

الموضوع كله شبه بعض

سواء فرد واحد او كلهم

ضع الشروط ال بدك ايها

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

علشان تسهل على نفسك وامشي خطوه خطوه

افهم كويس ما تم واكمل انت

@عمر ضاحى

معلش اخي الكريم تعبتك معايا والله 

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

اكون شاكر فضلك 

[عمر ضاحى]

11 دقائق مضت, سامر محمود said:

@عمر ضاحى

معلش اخي الكريم تعبتك معايا والله 

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

اكون شاكر فضلك 

ما اسم التقرير ؟

 

[سامر محمود]

الان, عمر ضاحى said:

ما اسم التقرير ؟

 

Vacation total

[عمر ضاحى]

استبدل المعادلة ال انت عاملها 

بالمعادلة ال انا مديهالك 

واجعلها هكذا 

CalcVac(DateDiff("d";[Date_jop];Date());DateDiff("yyyy";[DateOfBirth];Date()))

زان شاء الله هتظبط معاك

VACATIONS22.rar