الحصول على المدد بالسنوات بدقة متناهية

[أبو هادي]

السلام عليكم

نقاط :

- متوسط أيام السنة اليوليانية هي 365.25 وهي حصيلة مجموع أيام أربع سنوات مقسومة على 4

- متوسط أيام السنة الجريجورية هي 365.2425 وهي حصيلة مجموع أيام 400 سنة مقسومة على 400

علما أن التقويم المعتمد الآن دوليا وفي أجهزة الكمبيوتر هو الجريجوري .

المشكلة :

لا يمكن الحصول على عدد السنوات بشكل دقيق باستخدام المتوسطات ولكن يمكن استخدام متوسط السنة اليوليانية للمدد البسيطة ومتوسط السنة الجريجورية للمدد الطويلة ، ومع الإثنين لن يتم الحصول على نتائج دقيقة .

الحل :

لقد قمت بعمل دالة تقوم على فصل أيام السنوات البسيطة من أيام السنوات الكبيسة ومن ثم تقسيم الأيام البسيطة على مدة السنة البسيطة 365 وتقسيم الأيام الكبيسة على 366 يوم .

آمل أن تحوز هذه الدالة وفكرتها على رضاكم وأن ينتفع بها وخصوصا في حساب إجازات الموظفين بحيث تضرب نتيجة الدالة في مدة الإجازة السنوية .

تحياتي .

GetYears.zip

[Daniello]

شكراً أخ أبو هادي على هذا المثال وكما سبق وأشرت فإننا سنستفيد منه في حساب الإجازات السنوية على وجه الخصوص

مثال فعال

شكراً مرة أخرى

:pp:

[ابوطالب]

جزاك الله خيراً يا استاذنا وكل عام وانتم بخير

[فهد الدوسري]

تسلم يمينك يا مبدع

[ashraf]

من غيرك راعي دوال التاريخ بهذه الدقة .

بارك الله فيك .

أشرف خليل

[أبو هادي]

السلام عليكم

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

يفضل تبديل هذين السطرين من كود الدالة :

  If InDate = -657435 Then yy = 99 Else yy = Year(InDate)
  yy = yy - 1

إلى هذا السطر :

  yy = Year(InDate) - 1

تحياتي .

تم تعديل فبراير 5, 2004 بواسطه أبو هادي

[ابومؤنس]

الي جميع الاخوة

والي خبير الاكسيس ابو هادي

كل عام واتنم بالف خير وصحة

وليس غريب ان يطالعني العبقري ابو هادي باخر انجازاتة

اتمني لك من كل قلبي التفوق والنجاح .