الرقم القومي

[يوسف عطا]

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

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

 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