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

[عبدالله باقشير]

السلام عليكم

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

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

يطريقتين :

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

=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

[محمدي عبد السميع]

جزاك الله عنا خير الجزاء

وبارك لك

أيها العالم الكبير

حفظك الله ورعاك

[ايمن ريا]

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

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

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

تم تعديل أغسطس 8, 2010 بواسطه aiman raya

[ياسر خليل أبو البراء]

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

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

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

[khalleefa2008]

[أبوبسمله]

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

[inas aly]

شكرا لكل اعمالك استاذنا

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

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

نريد هذه الاضافة في عمود النوع

[عبدالله باقشير]

السلام عليكم

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

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

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

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

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

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

خبور خير

[inas aly]

السلام عليكم

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

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

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

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

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

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

خبور خير

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

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

الف شكر

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

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

[sayied99f]

والله استاذ معادلة فى منتهى الجمال

ياريت تفقيط تاريخ الميلاد من الرقم القومى

بمعنى يوم شهر سنة

[أبو سجده]

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

وبه نستعين

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

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

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

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

[reda23dz]

بارك الله فيك أخي

[Hisham85]

السلام عليكم

مشكور جدًا على المعادلات القيمة

لكن معادلة النوع لم تظبط معى

لا أعرف أين المشكلة

الرقم القومى عندى فى خانة 

D10

[Hisham85]

ليه ممكن دالة لا تعمل؟