حساب العمر إذا سنة الميلاد هجرية او ميلادية

فتى الوادي كتب:

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

إذا لدي جدول T_1 وفيه الحقول :

رقم معرف

الاسم

سنة الميلاد

نوع سنة الميلاد

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

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

وهذا المثا مرفق :

سنة_الميلادي_والعمر.rar

فكيف يمكن عمل ذلك ولكم مني خالص الدعاء في ظهر الغيب ..

بارك الله فيك وفي علمك ونفع الله بك البلاد والعباد ....

يعني لا بد لنا من إضافة حقل السن الحالية في الجدول !

السنة القادمة سوف يتغير العمر ؟ فما هو السبيل لذلك ؟!!

إذا كنا متأكدين دوما أن السنة الهجرية أحدث من السنة الميلادية فمن الممكن الاعتماد على الرقمين الأولين من السنة الميلادية لمعرفة أن تاريخ الميلاد إما هجري وإما ميلادي!..

إذا كان الرقمان أصغر من (19) فهو هجري!.. وإلا فالميلادي

وهذه هي صيغية الشفرة

Function Age(BYear%)
If BYear% Then
     If Left(BYear%, 2) < 19 Then
        Calendar = vbCalHijri
        Age = Year(Date) - BYear%
        Debug.Print Year(Date), BYear%
    Else
        Calendar = vbCalGreg
        Age = Year(Date) - BYear%
        Debug.Print Year(Date), BYear%

    End If
End If
End Function

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

إليك المثال بعد التعديل

سنة_الميلادي_والعمر (3).zip

ممتاز اخي القحم ... 100%

بارك الله فيك وفي علمك ونفع الله بك البلاد والعباد

القحم كتب:

إذا كنا متأكدين دوما أن السنة الهجرية أحدث من السنة الميلادية فمن الممكن الاعتماد على الرقمين الأولين من السنة الميلادية لمعرفة أن تاريخ الميلاد إما هجري وإما ميلادي!..

إذا كان الرقمان أصغر من (19) فهو هجري!.. وإلا فالميلادي

وهذه هي صيغية الشفرة

Function Age(BYear%)
If BYear% Then
     If Left(BYear%, 2) < 19 Then
        Calendar = vbCalHijri
        Age = Year(Date) - BYear%
        Debug.Print Year(Date), BYear%
    Else
        Calendar = vbCalGreg
        Age = Year(Date) - BYear%
        Debug.Print Year(Date), BYear%

    End If
End If
End Function

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

إليك المثال بعد التعديل

سنة_الميلادي_والعمر (3).zip

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

ويبارك فى كل اعضاء المنتدى الصالحين والصالحات ولا ننسى الأخت الكريمة د زهرة

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

ما قصرتي اختي الكريمة المحروسة الله يحرسك من كل شر ..

وبارك الله فيك وفي علمك ونفع لك البلاد والعباد .