عمل تاريخ يعد احتساب المدد

[عمرو القليعي]

-المطلوب اضافه تاريخ بدايه الخبره ونهايه الخبره يتم احتساب المده تلقائي              

-واضافه تاريخ بدايه المده الاستثنائيه ونهايتها ويتم احتساب المده تلقاي                

-ويتم جمع هذه المدد وطرحها من تاريخ اليوم ويتم انشاء تاريخ قديم

واشكرم

Database1.rar

[محمد أبوعبدالله]

السلام عليكم

اضف الوحدة النمطية التالية

Option Compare Database
Option Explicit

Function CalcAgeY(vDate1 As Date, vdate2 As Date)
    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAgeY = vYears
    
End Function
Function CalcAgeM(vDate1 As Date, vdate2 As Date)

    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAgeM = vMonths
    
End Function
Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String
    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1

    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
        
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAgeD = vDays
    End Function

واستخدم الكود التالي في النموذج

    Me.الخبره_يوم = CalcAgeD(Me.تاريخ_نهايه_مدة_الخبره, Me.تاريخ_اليوم)
    Me.الخبره_شهر = CalcAgeM(Me.تاريخ_نهايه_مدة_الخبره, Me.تاريخ_اليوم)
    Me.الخبره_سنه = CalcAgeY(Me.تاريخ_نهايه_مدة_الخبره, Me.تاريخ_اليوم)


    Me.استثنائيه_يوم = CalcAgeD(Me.تاريخ_نهايه_المدة_استثنائيه, Me.تاريخ_بدايه_المدة_استثنائيه)
    Me.استثنائيه_شهر = CalcAgeM(Me.تاريخ_نهايه_المدة_استثنائيه, Me.تاريخ_بدايه_المدة_استثنائيه)
    Me.استثنائيه_سنه = CalcAgeY(Me.تاريخ_نهايه_المدة_استثنائيه, Me.تاريخ_بدايه_المدة_استثنائيه)

ونصيحة لا تستخدم اسماء عربية للحقول والكائنات ان اردت استخدام دوال ومعادلات

Database1.rar

تحياتي

[عمرو القليعي]

اشكر اخي الفاضل

لاكن استاذنك 

اولا مش محتاج Command محتاج انه يحسب تلقائي مع كتابة التاريخ

ثانيا محتاج تاريخ بعد احتساب المدد

اعذرني انا لسه ميتدأ

اشكرك جدا علي اهتمامكDatabase1.rar

[أبو عبدالله الحلوانى]

جرب هذا المرفق ووافنا بالنتائج

 

 

Database1.rar

[عمرو القليعي]

اشكرك اخي العزيز

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

لاكن توجد مشكله في حاله عدم اضافه التاريخ الاستثنائي لايتم حساب المده وتظهر علامة خطأ

ارجو حلها ولك مني كل الشكر والتقدير

[أبو عبدالله الحلوانى]

أرجو أن يوافق هذا مرادك

Database1.accdb

[عمرو القليعي]

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

اشكرك علي مجهودك الرائع

ولكم كل التحيه

[عمرو القليعي]

السلام عليكم اخي ابو عبد الله

عاوز اعمل تقرير لهذه المدد ولاكن لاتفلح معي 

تقولي اذاي

Database1.rar

[أبو عبدالله الحلوانى]

في ٢٣‏/١‏/٢٠٢١ at 10:37, عمرو القليعي said:

تقولي اذاي

اجعل الكود داخل الاستعلام واجعل الاستعلام مصدر سجلات التقرير  وفقط (هذا كل شيء)

[عمرو القليعي]

سلام عليكم

اخي ابو عبد الله

ممكن تساعدني في هذا الملف

ولك مني كل التقدير والاحترام

[عمرو القليعي]

حساب مدد الخدمه والاجازات

ارجو المساعده

بيان الموظفين.rar