أريد طريقة معرفة العمر من رقم معين ..

اخي الفاضل عبدالله

السلام عليكم ورحمة الله وبركاته

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

Private Sub strNumber_Exit(Cancel As Integer)
Me.strYear = 2009 - Mid(strNumber, 2, 2)
Me.strAge = 2009 - Me.strYear
End Sub

ملاحظة : من اين اتيت بهذا الرقم ؟ هل هو مستند على عملية معينه او تاريخ معين ؟

لأني لاحظت انها ارقام عشوائيه لا تستند الى شيء معين

فهل من توضيح ؟

DbAge.rar

وعليكم السلام ورحمة الله وبركاته ...

اختي زهرة بارك الله فيك ، فعلاً هي ارقام عشوائية على السريع ، لكن في ملاحظة في التعديل ..

لنفرض اني وضعت الرقم 28603206

المفروض يطلع لي

العمر 23

والميلاد 1986

لكن تظهر لي نتيجة معكوسة وهي

العمر 86

والميلاد 1923

ما الحـل ، وجزاك الله خير ..

اقتباس

يعني عندي الرقم

250000344556

اريد ان يتم حساب العمر من ثاني وثالث رقمين من الجهة اليسرى ..

يعني يتم أخذ الرقم 50 ، ثم يتم انقاصه من السنة الحالية ..

نحن في 2009 -50 = 1959

يعني عمر الشخص هو 59 سنة ^^

**********

اقتباس

لنفرض اني وضعت الرقم 28603206

المفروض يطلع لي

العمر 23

والميلاد 1986

لكن تظهر لي نتيجة معكوسة وهي

العمر 86

والميلاد 1923

أخي الكريم

يوجد تعارض بين كلامك السابق وكلامك الحالي

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

وهذا ما قامت به أختنا زهرة بالضبط

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

فحدد أي الأمرين صواب

وستجد ما يسرك إن شاء الله

اخي الفاضل عبدالله

بناء على شرحك السابق فقد عملنا المثال لك حسب ما فهمنا

ولكن الوضع اختلف الآن فلا يوجد مشكله

تم التعديل بناء على شرحك الحالي

هذا الكود الجديد حسب شرحك

Private Sub strNumber_Exit(Cancel As Integer)
Me.strYear = 1900 + Mid(strNumber, 2, 2)
Me.strAge = 2009 - Me.strYear
End Sub

DbAge.rar

بالتوفيق

بعد إذن أستاذتنا زهرة

حتى لا يحرم مواليد الألفية الثالثة من القيد في السجلات

وحتى يتم حساب العمر في السنوات القادمة غير 2009

تم تغيير الكود إلى

Private Sub strNumber_Exit(Cancel As Integer)
If Mid(strNumber, 2, 2) <= Format(Date, "yy") Then
Me.strAge = Format(Date, "yyyy") - (2000 + Mid(strNumber, 2, 2))
Me.strYear = 2000 + Mid(strNumber, 2, 2)
Else
Me.strAge = Format(Date, "yyyy") - (1900 + Mid(strNumber, 2, 2))
Me.strYear = 1900 + Mid(strNumber, 2, 2)
End If
End Sub

تقبلوا جميعا تحياتي

أخوكم

محمد صالح

السلام عليكم ورحمة الله وبركاته ..

عفواً حصل لبس عندي ،،

وفي المثال الثاني هذا ما اريده ، جزاكم الله خير وبارك الله فيك جهودكم ..