الرقم القومي

[محمد خالد الشابورى]

المشاركة الأصلية كتبت بواسطة m..osama

ممتاز ورائع معلومات جيده
نود توضيح أكثر ل · c1 = رقـم رقابى للتحقق من صحة الرقم القومي ( check digit )

حكاية الرقم الرقابى دى أنا بعتبرها كلام فاضى
ممكن ينحسب (أنا أقدر أحسبها)

[romanna]

البحر الأحمر 30

[العوامى]

كود محافظة الأسكندرية ( 02 )
شكرا لمجهودك أخى الفاضل

[البطل السيناوي]

Function Governorate(strID As Variant) As String
If Len(strID) = 14 Then
Select Case Mid(strID, 8, 2)
Case "01": Governorate = "القاهرة"
Case "02": Governorate = "الإسكندرية"
Case "03": Governorate = ""
Case "04": Governorate = ""
Case "05": Governorate = ""
Case "06": Governorate = ""
Case "07": Governorate = ""
Case "08": Governorate = ""
Case "09": Governorate = ""
Case "10": Governorate = ""
Case "11": Governorate = ""
Case "12": Governorate = "الدقهلية"
Case "13": Governorate = "الشرقية"
Case "14": Governorate = "القليوبية"
Case "15": Governorate = "كفرالشيخ"
Case "16": Governorate = "الغربية"
Case "17": Governorate = "المنوفية"
Case "18": Governorate = "البحيرة"
Case "19": Governorate = "الإسماعيلية"
Case "20": Governorate = ""
Case "21": Governorate = "الجيزة"
Case "22": Governorate = "بنى سويف"
Case "23": Governorate = "الفيوم"
Case "24": Governorate = "المنيا"
Case "25": Governorate = "أسيوط"
Case "26": Governorate = "سوهاج"
Case "27": Governorate = "قنا"
Case "28": Governorate = "أسوان"
Case "29": Governorate = "الأقصر"
Case "30": Governorate = ""
Case "31": Governorate = ""
Case "32": Governorate = ""
Case "33": Governorate = "مطروح"
Case "34": Governorate = "شمال سيناء "
Case "35": Governorate = ""
Case "36": Governorate = ""
Case "37": Governorate = ""
Case "38": Governorate = ""
Case "39": Governorate = ""
Case "40": Governorate = ""
Case "41": Governorate = ""
Case "42": Governorate = ""
Case "43": Governorate = ""
Case "44": Governorate = ""
Case "45": Governorate = ""
Case "46": Governorate = ""
Case "47": Governorate = ""
Case "48": Governorate = ""
Case "49": Governorate = ""
Case "50": Governorate = ""
Case "51": Governorate = ""
Case "52": Governorate = ""
Case "53": Governorate = ""
Case "54": Governorate = ""
Case "55": Governorate = ""
Case "56": Governorate = ""
Case Else: Governorate = ""
End Select
End If
End Function

[احمد555555]

معلومات فعلاً مفيدة

[sunman]

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

[Ehab Eltntawy]

موضوع رائع جدا و جهد مشكور

بارك الله فيكم

أود فقط ان الفت نظركم لشئ هام

هو ان كود المحافظة للرقم القومى هو لمحافظة محل الميلاد و ليس محل السكن الحالى


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


و لكم جزبل الشكر و التقدير

[ثانويات]

انا من اسكندرية وكود المحافظة 03

[hassanalhawy]

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

[MMMM.SAYED]

المشاركة الأصلية كتبت بواسطة hass****hawy

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

تسلم أيدك وأيد هذا المبرمج العظيم ذلك الفنان المبدع

[Ehab Eltntawy]

المشاركة الأصلية كتبت بواسطة ثانويات

انا من اسكندرية وكود المحافظة 03

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

[ابوعرابى1]

محافظة اسوان 28

[ابومروة4]

معلومة مفيدة جدا بنى سويف 22

[msm15]

محافظة المنيا 24

[mokhtar2002]

مشكووووووووووووووووووووووووووور