كريمو2

شكرا ابو عبد الله على الرد المقصود بالسنة "Année" رقم ناتج عن : اي : Année=DateDiff("yyyy";Forms!Employé_en_arabe!Estehkak;[strdate_B])+1 Estehkak=DateSerial(Year([hiredate])+1;1;1) TotLoh=IIf(Month([Date])=7;(Year([Date])*50)+[Forms]![Employé_en_arabe]![PreD];0) PreD=Int((([Estehkak]-[hiredate])/30)*4.16) علما ان دالة iif لم تفي بالغرض وكانت النتيجة #Name? =IIf(Month([Date])=7;[Année]*50+[Forms]![Employé_en_arabe]![PreD];0) والمرفق يوضح ذالك حساب اجازة.rar

لم تصلح الفكرة والناتج كان 100850

نفس المشكلة اخي

الملف معطوب اخي ممكن رفعه من جديد

شكرا ابو عبد الله على الرد If Month(Date) = 7 then M = year(Date)* 50 End If ولكن هل يوضع في حدث ام اين وكيف يتم تنسيقها مع بقية المعادلة =[M]![Forms]![Employé_en_arabe]![PreD]

السلام عليكم اساتذي الكرام كيف لي ان اعدل على هذا المعادلة =[Année]*50+[Forms]![Employé_en_arabe]![PreD] حيث يكون ضرب السنة في 50 الا بحلول شهر جويلية من كل سنة فقط ارجو المساعدة

وهو كذالك استاذي شكرا لك

لم تصلح الفكرة استاذ وثانيا أحبذ عند الحفظ يكون اسم التقرير بpdf مربوط بالتاريخ مثلا rptTransfer_01_04_2017

اليك المرفق استاذي 2017.rar

السلام عليكم اساتذي الكرام ظهر لي مشكل مؤخرا وهو عند الضغط الى تصدير تقرير الى pdf تظهر مشكلة Private Sub Command10_Click() DoCmd.OutputTo acOutputReport, "rptTransfer" & txtMonth, acFormatPDF, strPathAndfile, True End Sub كيف يتم تصحيحها

شكرا استاذي الكريم هل ما تم اضافته هو هذا Private Sub strdate_B_Click() Work_Start_history_B = d1 'Me.findate_B = Me.aja_B + Me.strdate_B - 1 'Me.findate_B.Value = Me.findate_B '' Me.Work_Start_history_B.Value = Me.Work_Start_history_B Me.Refresh End Sub اخي كمال الإستعلام موجود فيه الكود ويعمل بشكل جيد لو ترجع الى الوحدة النمطية fDate_Return لتجد ان بداية العمل تكون بإستثناء ايام الجمعة والسبت اي عندما تنتهي الاجازة يوم الخميس فالكود يضيف لك يومين اي الجمعة والسبت وتكون البداية يوم الاحد

هل من مساعدة

للرفع

السلام عليكم أساتذتي الكرام لديا مشكلة وهو عدم ظهور تاريخ مباشرة العمل بالجدول TB_Ath6rary علما اني استعملت الكود التالي في حدث عند النقر عند الفورم strdate_B ومانفع Private Sub strdate_B_Click() Me.findate_B = Me.aja_B + Me.strdate_B - 1 Me.findate_B.Value = Me.findate_B Me.Work_Start_history_B.Value = Me.Work_Start_history_B Me.Refresh End Sub تاريخ مباشرة العمل.rar وسبب الظهور انه مرتبط بجدول في نموذج "تنبيه" ارجو المساعدة وشكرا

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

اهلا بك استاذ ابو ادم بلد المليون ونصف شهيد الجزائر

هذا الكود اعطى للتقريب للأعلى فكيف يكون للتقريب للأسفل اي اعطى 1364 وليس 1363

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

اهلا استاذ شيفان لاحظت انك زدت مايلي : اي 2 شهر و 14 يوم = 10.40 من اين اقتبست بهذا ؟ تاريخ التنصيب عند العامل كريمو 5 بداية توظيفه 1989/12/09 اي لديه في شهر ديسمبر 1989 21 يوم عمل بمثابة 3 ايام اجازة عنها

شهر له 4.16 شهرين له 4.16 × 2 = 8.32 بتقريب 9 14 يوم له 2.08 لاحظ المرفق من تصميم استاذ رمهان في هذا المنتدى حساب اجازاة ثانية1.rar

له 27 سنة من عام (1990 الى 2017) × 50 = 1350 وله 03 ايام في ديسمبر عام 1989 المجموع 1353

شكرا اخي شيفان لاحظ المرفق وخاصة عند العامل كريمو 5 بداية توظيفه 1989/12/09 ejmaleEjazat: Int(((Date()-[hiredate])/7.3)) ejmaleEjazat1: Int(((Date()-[hiredate])/30)*4.16) ejmaleEjazat2: Round(((Date()-[hiredate])/30)*4.16;0) ejmaleEjazat3: Round(((Date()-[hiredate]))*0.1389;0) ejmaleEjazat = 1363 ejmaleEjazat1 = 1380 ejmaleEjazat2 = 1381 ejmaleEjazat3 = 1383 الأصح = 1353 حساب اجازة.rar

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

ارجو المساعدة ...

اين انت ياأستاذ جعفر...