الرقم القومي

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

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