اذهب الي المحتوي
أوفيسنا

دالة استخلاص تاريخ الميلاد من الرقم القومي


الردود الموصى بها

السلام عليكم

استخراج تاريخ الميلاد من الرقم القومي

وهي طلب للاخ الحبيب الاستاذ محمدي عبد السميع

يطريقتين :

اولا : بالمعادلات

=DATE(IF(LEFT($B6;1)="2";MID($B6;2;2);"20"&MID($B6;2;2));MID($B6;4;2);MID($B6;6;2))
============================= ثانيا: بالكود بدالة Kh_MyDate
Option Explicit


'         بسم الله الرحمن الرحيم            "

'         ********************           "

'         دالـــــــــــــــة

'   استخلاص تاريخ الميلاد من الرقم القومي

'========================================"

'========================================"

'-----------------------------------------------------------------


Function Kh_MyDate(MyNumber As Variant) As Date

Dim D As String, M As String, Y As String, TY As String


    On Error GoTo Err_Kh_MyDate


    D = Mid(MyNumber, 6, 2)

    M = Mid(MyNumber, 4, 2)

    Y = Mid(MyNumber, 2, 2)

    TY = Left(MyNumber, 1)


    If TY = "2" Then Else Y = "20" & Y

    Kh_MyDate = DateSerial(Y, M, D)

    Exit Function


Err_Kh_MyDate:

     Kh_MyDate = ""

End Function

جعلتها هنا لتعم الفائدة للجميع

خبور خير

دالة استخلاص تاريخ الميلاد من الرقم القومي.rar

  • Like 1
رابط هذا التعليق
شارك

كل عام والجميع بخير بمناسبة شهر رمضان الكريم

الأستاذ الفاضل ـ خبور خير :

صراحةً أعجز فى اختيار كلمات الثناء لك لما تقدمه لنا من أعمال تساعدنا فى مجال عملنا فمهما اخترت من كلمات لن أوفيك قدرك ، ولن أبالغ إذا قلت لك أن كثيراً منا تناسى حضارة اليمن القديمة ( ممالك سبأ ومعين وحضرموت ) وأصبح لايذكر سوى حضارتكم الحديثة المتمثلة فى علمكم وتعاملكم الحضارى مع كل الأخوان فى كل الأقطار .

تم تعديل بواسطه aiman raya
رابط هذا التعليق
شارك

حفظك الله لنا أيها العالم الكبير خبور خير

بارك الله فيك وحفظك من كل سوء

سبقتني بها.. كنت أفكر في بناء هذه الدالة ولكن سبقتني بها وكانت نعم المبادرة مبادرتك فلو تقدمت أنا بها لما رأينا هذه الكنوز والدرر

رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم

الرقم التاني من اليمين لو فردي يبقى النوع ذكر

ولو الرقم زوجي يبقى النوع انثى

اذا كانت ما فهمت صحيح

المعادلة التالية تقوم بما طلبت:

لو فرضنا ان الرقم القومي في الخلية B6

=IF(MOD(LEFT(RIGHT($B6;2);1);2)=1;"ذكر";"انثى")

خبور خير

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الرقم التاني من اليمين لو فردي يبقى النوع ذكر

ولو الرقم زوجي يبقى النوع انثى

اذا كانت ما فهمت صحيح

المعادلة التالية تقوم بما طلبت:

لو فرضنا ان الرقم القومي في الخلية B6

=IF(MOD(LEFT(RIGHT($B6;2);1);2)=1;"ذكر";"انثى")

خبور خير

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

المعادله سليمه

الف شكر

رابط يفيد في نفس الموضوع

http://www.cso.gov.e...dex.aspx?lid=15

رابط هذا التعليق
شارك

  • 4 months later...

بسم الله الرحمن الرحيم

وبه نستعين

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

وياريت من الساده الاعضاء بمساعدتى لايجاد معادله

لاستخراج الديانه من خلال الرقم القومى

على الايميل SAIED_BIRAM2000@YAHOO.COM

رابط هذا التعليق
شارك

  • 6 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information