(مميز ) دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي

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

السلام عليكم

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

ثلاثة معطيات بدالة واحدة

Option Explicit


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

'           ********************

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

'           Kh_Date_Sex_Province

'  ( استخراج تاريخ الميلاد او النوع (ذكر - انثى

'       او المحافظة من الرقم القومي

'==============================================

'                  MyTest

'    اذا كانت = 1  تقوم باستخراج تاريخ الميلاد

'          اذا كانت = 2  تقوم باستخراج النوع

'         اذا كانت = 3  تقوم باستخراج المحافظة

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

'         MyProvinces  في متغير الجدول

'            العمل لم  يستكمل بعد

'      يمكنك إضافة المحافظات الاخرى الغير موجودة

'          او تعديل الموجود في حالات الخطأ

'   بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة

'                             :  مثال على ذلك

'               "01/القاهرة"

'==============================================

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


Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte)

Dim MyProvinces As Variant

Dim r As Integer

Dim yy As String

Dim ty As String * 1

Dim d As String * 2, m As String * 2, y As String * 2 _

, x As String * 2, xx As String * 2

'==============================================

'       يمكنك إضافة المحافظات الاخرى الغير موجودة

'          او تعديل الموجود في حالات الخطأ

MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _

, "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _

, "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _

, "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح")

'==============================================

Kh_Date_Sex_Province = ""

On Error GoTo 1

If Len(Trim(MyNumber)) = 0 Then

    GoTo 1

End If


If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then

    Kh_Date_Sex_Province = "Error_MyNumber"

    GoTo 1

End If


If MyTest = 1 Then

    d = Mid(MyNumber, 6, 2)

    m = Mid(MyNumber, 4, 2)

    y = Mid(MyNumber, 2, 2)

    ty = Left(MyNumber, 1)


    Select Case ty

        Case "2": yy = y

        Case "3": yy = "20" & y

        Case Else: yy = ""

    End Select

    If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d)


ElseIf MyTest = 2 Then

    If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _

    yy = "ذكر" Else yy = "انثى"

    Kh_Date_Sex_Province = yy


ElseIf MyTest = 3 Then

    x = Mid(MyNumber, 8, 2)

    For r = LBound(MyProvinces) To UBound(MyProvinces)

        xx = MyProvinces(r)

        If x = xx Then

            Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3)

            Exit For

        End If

    Next

End If

1:

End Function

بالنسبة لمعطيات المحافظات لم تستكمل بعد

ويمكنك اضافة المحافظات المتبقية حسب ما شرحت بالكود

خبور خير

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

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

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

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

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

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

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

حضارتكم الحديثة المتمثلة فى علمكم وتعاملكم الحضارى مع كل الأخوان فى كل الأقطار

[inas aly]

الله يعطيك العافيه استاذنا الفاضل

[الشرابى]

شكرا جزيلا لكم يااستا ذ خبور وكل عام وانت بخير

اخوك الشرابى

[inas aly]

========================

الاخ الفاضل / خبور خير

========================

]

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

الشكر واصل لجميع المشاركين

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

خبور خير

[ahmed saif]

مشكور على المجهود الرائع ، بس انا حاولت ان اطبق المعادلة مش نافعة خالص ممكن التوضيح اكثر فى كيفية استخدام المعادلة

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

مشكور على المجهود الرائع ، بس انا حاولت ان اطبق المعادلة مش نافعة خالص ممكن التوضيح اكثر فى كيفية استخدام المعادلة

شكرا لمرورك اخي وبالنسبه لمحاولاتك اللي مش نافعه في تطبيق العمل الفكره اسهل مما تتصور وان شاء الله ستكون محاولاتك هذه المره نافعه اخرج بطاقتك الرقم القومي وانقل منها ال 14 رقم الموجودين بها في عمود الرقم القومي ونظر النتيجه واخبرنا

[قصي]

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

والف شكر

[أم عبد الله]

السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير بمناسبة شهر رمضان الكريم أستاذنا الفاضل خبور جزاك الله الفردوس الأعلى من الجنة جميعاً.

تم تعديل أغسطس 27, 2010 بواسطه fzsss

[عبد الفتاح كيرة]

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

أستاذنا و معلمنا

===

لدينا أشياء كثيرة لنذاكرها

لا نستطيع اللحاق بغزارة إنتاجك

===========

نسأل الله أن يجزيك خيرا عن المسلمين

====

هل الرقم الأول من اليسار يدل على النوع ؟

يعنى الزوجى ذكر

والفردى أنثى؟

تم تعديل أغسطس 27, 2010 بواسطه kemas

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

السلام عليكم

هل الرقم الأول من اليسار يدل على النوع ؟

يعنى الزوجى ذكر

والفردى أنثى؟

الرقم الثاني من اليمين إذا كان فردياً فالمولود ذكر و إذا كان زوجياً فالمولود أنثى

البيانات دي موجودة في موقع المصلحة نفسه هنا

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

الافتباس من الرابط التالي المشاركة 8

http://www.officena.net/ib/index.php?showtopic=32960

[علي فاهم]

بارك الله فيك

كل عام والجميع بخير

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

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

[معتصم محمد]

الأستاذ / عبدالله

شكراً على هذا الكود

تم إعداد شرح فيديو لكيفية إستخدام الدالة

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

=============================

الاخ الفاضل / معتصم محمد

=============================

و

[mostafa ghareeb]

السلام عليكم ورحمه الله

جزاك الله خيرا وتقبل الله منك

عندما يتم نقل الكود فى الشيت تتغير اللغه الى لغه غريبه ارجوا المساعده

[دغيدى]

أخى الفاضل / مصطفى

سلام الله عليكم

حاول أن تنسخ الكود والمؤشر فى وضع كتابة اللغة العربية

[ابو الآء]

الأستاذ / عبدالله

شكراً على هذا الكود

تم إعداد شرح فيديو لكيفية إستخدام الدالة

بارك الله فيك اخى الحبيب

عمل متميز

[elkomy]

على فكرة القليوبية 14 وليس 15

[elkomy]

القليوبية 14 وليست 15

[ahmed08]

شكرا جزيلاً

[أحمد عزيز]

ألف شكر ع المجهود الرائع أ. عبدالله

دا لينك في جميع اكوادالمحافظات علشان لو حابب تحدث الكود

https://ar.m.wikipedia.org/wiki/بطاقة_الرقم_القومي

:-D :-D

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

الأخ الفاضل أحمد عزيز

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية ..

تقبل تحياتي

[أحمد عزيز]

أ. عبدالله ،،

 

انا طبقت الداله دي في ملف عندي و يعمل بكفاءة بس لدي طلب بسيط ،، أحيانا في الملف الخاص بي بتكون الخليه اللي موجود بها الرقم القومي فاضيه و دا  بيظهر رساله خطا error my number

 

انا عاوز الرساله دي متظهرش  و يبقي الخليه مفيهاش اي  رساله خطأ تظهر في الطباعة

ولكم جزيل الشكر

تم تعديل يناير 26, 2016 بواسطه أحمد عزيز