أبو هادي قام بنشر فبراير 3, 2004 مشاركة قام بنشر فبراير 3, 2004 السلام عليكم نقاط : - متوسط أيام السنة اليوليانية هي 365.25 وهي حصيلة مجموع أيام أربع سنوات مقسومة على 4 - متوسط أيام السنة الجريجورية هي 365.2425 وهي حصيلة مجموع أيام 400 سنة مقسومة على 400 علما أن التقويم المعتمد الآن دوليا وفي أجهزة الكمبيوتر هو الجريجوري . المشكلة : لا يمكن الحصول على عدد السنوات بشكل دقيق باستخدام المتوسطات ولكن يمكن استخدام متوسط السنة اليوليانية للمدد البسيطة ومتوسط السنة الجريجورية للمدد الطويلة ، ومع الإثنين لن يتم الحصول على نتائج دقيقة . الحل : لقد قمت بعمل دالة تقوم على فصل أيام السنوات البسيطة من أيام السنوات الكبيسة ومن ثم تقسيم الأيام البسيطة على مدة السنة البسيطة 365 وتقسيم الأيام الكبيسة على 366 يوم . آمل أن تحوز هذه الدالة وفكرتها على رضاكم وأن ينتفع بها وخصوصا في حساب إجازات الموظفين بحيث تضرب نتيجة الدالة في مدة الإجازة السنوية . تحياتي . GetYears.zip 1 رابط هذا التعليق شارك More sharing options...
Daniello قام بنشر فبراير 3, 2004 مشاركة قام بنشر فبراير 3, 2004 شكراً أخ أبو هادي على هذا المثال وكما سبق وأشرت فإننا سنستفيد منه في حساب الإجازات السنوية على وجه الخصوص مثال فعال شكراً مرة أخرى :pp: رابط هذا التعليق شارك More sharing options...
ابوطالب قام بنشر فبراير 4, 2004 مشاركة قام بنشر فبراير 4, 2004 جزاك الله خيراً يا استاذنا وكل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
فهد الدوسري قام بنشر فبراير 4, 2004 مشاركة قام بنشر فبراير 4, 2004 تسلم يمينك يا مبدع رابط هذا التعليق شارك More sharing options...
ashraf قام بنشر فبراير 5, 2004 مشاركة قام بنشر فبراير 5, 2004 من غيرك راعي دوال التاريخ بهذه الدقة . بارك الله فيك . أشرف خليل رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر فبراير 5, 2004 الكاتب مشاركة قام بنشر فبراير 5, 2004 (معدل) السلام عليكم شكرا لكم جميعا وبارك الله فيكم يفضل تبديل هذين السطرين من كود الدالة : If InDate = -657435 Then yy = 99 Else yy = Year(InDate) yy = yy - 1 إلى هذا السطر : yy = Year(InDate) - 1 تحياتي . تم تعديل فبراير 5, 2004 بواسطه أبو هادي رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر فبراير 5, 2004 مشاركة قام بنشر فبراير 5, 2004 الي جميع الاخوة والي خبير الاكسيس ابو هادي كل عام واتنم بالف خير وصحة وليس غريب ان يطالعني العبقري ابو هادي باخر انجازاتة اتمني لك من كل قلبي التفوق والنجاح . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان