احتساب العمر بالأكسيس لطلبة المدارس

أخي الكريم

ستجد في هذا المنتدى ما يسرك إن شاء الله

أتمنى من أحد الأخوة ممن يستطيع حلها أن يقوم بها أو يأتي بفكرة أخرى مطابقة لطريقة عمل الملف

و شكراً

إسلام عبد الله كتب:

أخي الكريم

ستجد في هذا المنتدى ما يسرك إن شاء الله

أتمنى من أحد الأخوة ممن يستطيع حلها أن يقوم بها أو يأتي بفكرة أخرى مطابقة لطريقة عمل الملف

و شكراً

ــــــــــــــــــــــــــــــــــــــ

صدقت ياأخي ففي هذا المنتدى أناس جهابذه

أخي الكريم محمدي

لحساب العمر للتلاميذ تلقائياً يتم باستخدام حساب الفرق بين تاريخين راجع مكتبة التواريخ وستجد الموضوع أسفل الرد وستجد به ما تريده وتحتاجه

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

وشكرا لك

بارك الله فيك أخي الفاضل الباشا قمر الزمان على المشاركة والمساعدة

وجزاك الله كل خير

اخي الفاضل محمدي

تفضل البرنامج بعد التعديل بواسطة دالة متطوره لإظهار العمر بكل دقه

AGE.rar

بارك الله بك اختنا الكريمة زهرة

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

مثل عند ادخال التاريخ 2ـ10يعطي

7 سنه و -1 شهر و 29 يوم

أرجو المعذرة من الجميع .. هذه دالة نموذجية بمعنى الكلمة حسب رأيي ولكم الرأي في النهاية

 

Sub GetPeriod(ByVal stDate As Date, ByVal enDate As Date, _
			  yy As Integer, mm As Byte, dd As Byte)
   Dim TempDate As Date
   Dim m As Long

   'للتبديل بين البداية والنهاية حال أن البداية أكبر من النهاية 
   If stDate > enDate Then
	 TempDate = stDate
	 stDate = enDate
	 enDate = TempDate
   End If

   'لإدخال يوم البداية في المدة
   stDate = stDate - 1

   'لحساب الأشهر الكاملة
   m = DateDiff("m", stDate, enDate)
   TempDate = DateAdd("m", m, stDate)
   If TempDate > enDate Then
	 m = m - 1
	 TempDate = DateAdd("m", m, stDate)
   End If

   yy = Fix(m / 12)
   mm = m Mod 12
   dd = DateDiff("d", TempDate, enDate)
End Sub