كريمو2 قام بنشر يناير 20, 2016 الكاتب قام بنشر يناير 20, 2016 لقد انخلطت الامور أستاذي الكريم واسف اتعبتك معايا الليلة جرب أدخل تاريخ التعيين 1985/01/01 والحساب الى غاية 2015/12/31 الصحيح : اقدمية الجنوب 06 سنة 00 شهر 00 يوم الخدمة الفعلية 31سنة 00 شهر 00 يوم المجموع 31سنة 00 شهر 00 يوم
jjafferr قام بنشر يناير 20, 2016 قام بنشر يناير 20, 2016 2 دقائق مضت, كريمو2 said: جرب أدخل تاريخ التعيين 1985/01/01 والحساب الى غاية 2015/12/31 الصحيح : اقدمية الجنوب 06 سنة 00 شهر 00 يوم الخدمة الفعلية 31سنة 00 شهر 00 يوم المجموع 31سنة 00 شهر 00 يوم هاي لازم تكون 31سنة + 06 سنة = 37سنة
كريمو2 قام بنشر يناير 20, 2016 الكاتب قام بنشر يناير 20, 2016 اشرت لك سابقا ان عندما تصبح اقدمية الجنوب تساوي 06 سنة فإنها لا تجمع مع الخدمة الفعلية ابدا يصبح المجموع يساوي الخدمة الفعلية فقط *- ملاحظة : حسب اخر تحديث للكود فان مربعات أقدمية الجنوب لا يظهر بها شيئا تقبل تحياتي القلبية الخالصة جرب المرفق الذي به أخر تحديث للكود 237.حساب اقدمية.rar
jjafferr قام بنشر يناير 20, 2016 قام بنشر يناير 20, 2016 تفضل ، والعد التنازلي للنوم = 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 قام بنشر يناير 20, 2016 الكاتب قام بنشر يناير 20, 2016 شكرا وليلتك سعيدة دمت في حماية رب العزة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.