حساب اقدمية من تاريخ بالسنة والشهر واليوم

[كريمو2]

لقد انخلطت الامور أستاذي الكريم

واسف اتعبتك معايا الليلة

جرب أدخل تاريخ التعيين 1985/01/01 والحساب الى غاية 2015/12/31

الصحيح :

اقدمية الجنوب

06 سنة

00 شهر

00 يوم

الخدمة الفعلية

31سنة

00 شهر

00 يوم

المجموع

31سنة

00 شهر

00 يوم

[jjafferr]

2 دقائق مضت, كريمو2 said:

جرب أدخل تاريخ التعيين 1985/01/01 والحساب الى غاية 2015/12/31

الصحيح :

اقدمية الجنوب

06 سنة

00 شهر

00 يوم

الخدمة الفعلية

31سنة

00 شهر

00 يوم

المجموع

31سنة

00 شهر

00 يوم

هاي لازم تكون 31سنة + 06 سنة = 37سنة

[كريمو2]

اشرت لك سابقا ان عندما تصبح اقدمية الجنوب تساوي 06 سنة

فإنها لا تجمع مع الخدمة الفعلية ابدا

يصبح المجموع يساوي الخدمة الفعلية فقط

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

تقبل تحياتي القلبية الخالصة

جرب المرفق الذي به أخر تحديث للكود

237.حساب اقدمية.rar

[jjafferr]

تفضل ، والعد التنازلي للنوم = 10 دقائق من الان 

Public Sub Calculate_Diff()

'1
'الخدمة الفعلية
    
    'D1 ealier, D2 later
    
    Dim D1, D2 As Date
    
    D1 = Me.date_recrut
    D2 = #12/31/2015#
    
    'leave if No date entered
    If Len(D1 & "") = 0 Then Exit Sub
    
    'don't check get values unless D2 is populated
    If Len(D2 & "") = 0 Then Exit Sub
    
        Call YMDDif3(D1, D2, Y, M, D)
        
    '**change 1
    'if D >= 30, then make it 1 month
    If D >= 30 Then
        D = D - 30
        M = M + 1
    End If
    If M >= 12 Then
        M = M - 12
        Y = Y + 1
    End If
    '**1
    
        Me.Année2 = Y
        Me.Mois2 = M
        Me.Jours2 = D
        
    

'2
'أقدمية الجنوب
    
  'Convert Years, Months, Days to southern
    'Convert Years to sMonth
    sM = Y * 4
    
    'Convert every 6 months to sMonths
    sM2 = Int(M / 6) * 2
    'Convert Remaining months to sDays
    sD = (M - Int(M / 6) * 6) * 10
    
    'Convert Days to sDays
    sD2 = Int(D / 10) * 3
 
    
  'Add the sM, sD
    'add the sMonths
    sM = sM + sM2
    
    'add the sDays
    sD = sD + sD2

    
  'Finalizing
    'Convert sD more than 30days to sM
    sM3 = Int(sD / 30)
    '# Final sD
    sD3 = sD - Int(sD / 30) * 30
    'add the extra months from sD to sM
    sM3 = sM + sM3
    '# Final sY
    sY3 = Int(sM3 / 12)
    '# Final sM
    sM3 = sM3 - Int(sM3 / 12) * 12

    '**change 2
    'No more than 6 years
    If sY3 >= 6 Then
        Me.Année1 = 6
        Me.Mois1 = 0
        Me.Jours1 = 0
    Else
        Me.Année1 = sY3
        Me.Mois1 = sM3
        Me.Jours1 = sD3
    End If
    '**2
    
    
        
'3
'المجموع
    'add the Years, Months, Days
    '**change3
    If sY3 >= 6 Then
        sY3 = 0
        sM3 = 0
        sD3 = 0
    End If
    '**3
    
    sY4 = sY3 + Y
    sM4 = sM3 + M
    sD4 = sD3 + D
    
    'Convert more than 30days to Months
    sM5 = Int(sD4 / 30)
    '# Final Days
    sD5 = sD4 - Int(sD4 / 30) * 30
    'add the extra months from the Days
    sM5 = sM4 + sM5
    '# Final Years
    sY5 = Int(sM5 / 12) + sY4
    '# Final Months
    sM5 = sM5 - Int(sM5 / 12) * 12
    

        Me.Année4 = sY5
        Me.Mois4 = sM5
        Me.Jours4 = sD5

    
End Sub

 

جعفر

[كريمو2]

شكرا

وليلتك سعيدة

دمت في حماية رب العزة

[jjafferr]

حياك الله