بيان عمر الشخص باليوم و الشهر و السنة ، عند إدخال تاريخ ميلادة

جرب هذا الإجراء

 

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

Sub GetPeriodTest()
  Dim Birthday As Date
  Dim yy As Integer
  Dim mm As Byte
  Dim dd As Byte

  Birthday = DateSerial(1980, 1, 1)

  GetPeriod Birthday, date, yy, mm, dd
  MsgBox "years: " & vbTab & yy & vbCrLf & _
		 "Months: " & vbTab & mm & vbCrLf & _
		 "Days: " & vbTab & dd
End Sub

تفضل اخي الكريم.

New_Microsoft_Access_Application.rar

سلام

أهلا بالجميع

- ياجماعة عقدتوها بالمرة!!!!!!!!!!

- طيب أيش رايكم تشوفوا ( طريقتي) يكمن تناسبكم!

- المرفق بعد التعديل: Ihab_G01.zip

- أتمنى للجميع التوفيق

سلام

القحم

الزين ما يجي بالساهل :D

Ages.rar

أشكركم جميعاً جزيل الشكر

لم اكن أتصور ان يجيب على ثلاثة على هذا المستوى مرة واحدة

وفقكم الله لما فية الخير للجميع

سلام

تحياتي للجميع

- ياجماعة الظاهر إن التاريخ عندي مقدم شوي!. أيش المشكلة؟

- كيف أحسبها صح؟

أتمنى للجميع التوفيق

سلام

القحم

طبعا يالقحم طريقتك ذكية جدا

بس لا تنسى أنك تظهر الناتج بشكل تاريخ ، والتاريخ لا يوجد به شهر صفر

حيث مدة شهر صفر سوف تظهر واحد وهكذا حتى مدة 11 شهر والتي ستظهر 12

عليه احذف شهر وليس ثلاثين يوم

ولتضمين يوم البداية في المدة أضف يوما بحث لا يوجد عمر صفر أبدا حيث أقل عمر هو يوم

الزبدة : احذف شهر وأضف يوم

سلام

أهلا Accessna

- ياذكي! ما كنت أتوقع إنك تغلب الحاسب

MyDate=Format(DateDiff("y",[dt],Date()),"(yy"")   سنة ( ""mm"") شهر (""dd"") يوم """)

المطلوب:

حساب السنين الأولى من الميلاد؛ قبل 12 شهر يعني (00) سنة

حساب الأشهرالأولى من الميلاد؛ قبل 30 يوم الأولى يعني (00) شهر

حساب الأيام الأولى قبل (30) قبل ما يكتمل الشهر الأول من ميلاد المسيح (عليه وعلى نبينا الصلاة والسلام) يعني (1 يوم واحد) لا سنة ولا شهر. يعني (00/00/ 01 يوم)

- الدالة تحسب المدة كأيام، ثم تسخرج ما في هذه الأيام من سنين وأشهر وأيام. وبإحتراف لأنها تحسب طول الشهر حسب موقعه من السنة (لاتزيد ولا تنقص)!!!!!!!!

- تحياتي لك Accessna

أتمنى للجميع التوفيق

سلام

القحم

بارك الله فيكم وجزاكم الله خير

اخواني

كيف احسب تاريخ الميلاد بالهجري

لاني جربت الامثله المعدله اذا ادخلت التاريخ بالهجري يحسب غلط وبعدد كبير

ارجو الافاده بارك الله فيكم

طيب جرب هذا المثال

___________.rar

أخي الكريم

من بعد إذن الإخوة الأفاضل

في مكتبة التاريخ والمواقيت موضوع مثبت ستجد به إن شاء الله ما تريده

هذه المكتبة في قسم التاريخ

ونسأل الله التوفيق

مثال جميل أخي مصلح

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

بارك الله فيك وجزاك الله خير اخي الفاضل ابوساره

الله يعطيك العافيه

مثال اكثر من رائع لقد كنت بحاجه ماسه لهذا المثال

وفقك الله

تحياتي واحترامي

السلام عليكم

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

أخي ابو ساره

مثال أكثر من رائع بارك الله فيك وزادك علما وهدى