أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى

السلام عليكم ورحمة الله وبركاته اليوم أقدم لكم الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى طبقا للتالى أولا ال ..



14-08-2018 11:43 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

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

اليوم أقدم لكم الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
طبقا للتالى
أولا الرقم القومى 14 رقم.... تمام قول تمام
مثال الرقم التالى

2 95 02 29 33 0027 7
والرقم دا خطا وهنعرف ليه دلوقتى بإذن الله
نتعرف سوا كدا على معنى الرقم دا
الرقم الأول وهو 2 يدل على القرن وهو القرن الـ 20

بمعنى ان من سنة 1900 حتى سنة 1999 هيكون رقم 2
وكل ما يزيد رقم يزيد قرن يعنى من 2000 حتى 2099 هيكون رقم 3

الرقم الثانى والثالث وهما 95 يدلان على السنة أى سنة 95
والقرن ال 19 وسنة 95 بمعنى سنة 1995 ميلادية

الرقم الرابع والخامس وهما 02 يدلان على الشهر أى الشهر 2 (فبراير)

الرقم السادس والسابع وهما 29 يدلان على اليوم أى اليوم 29 من شهر فبراير

الرقم الثامن والتاسع وهما 33 يدلان على كود المحافظة وكود 33 يعود لمحافظة مطروح.
وفى حالة كان الشخص مولوداً خارج مصر فيكون الرقم 88

من الرقم العاشر حتى الثالث عشر وهما 0027 يدلون على الجنسية (ذكر أم انثى) وهو رقم عشوائى
وهنا الرقم 7 الثالث عشر أى رقم فردى بمعنى هذا الرقم يعود لذكر وان كان رقم زوجى فيعود لانثى


الرقم الأربعة عشر والأخير وهذا الرقم وضعته وزارة الداخلية للتحقق من صحة الرقم القومى
وأن البطاقة ليست مزورة، ويختلف الرقم من بطاقة لأخرى بين الرقم 1و9.

طيب أنا قولت ان الرقم دا خطا ليه، لان فى سنة 1995 فى شهر فبراير كان 28 يوم بس وهنا اليوم 29

ومن هنا تأتى فكرة عمل الدالة المعرفة AlsaqrIDTest
عملها يقتضى بفحص القرن إذا كان 2 أو 3 وهو المتاح فى الوقت الحالى
لو عايز تزود عن 3 دا المفروض بعد قرن اللى يعيش بقى هقول على الجزء اللى تغيره فى الكود لذلك
وفحص صحة صياغة السنة والشهر واليوم
وفحص صحة كود المحافظة
والأربع أرقام بعد ذلك فهى عشوائية فيتم فحص الأرقام فقط
أما الرقم الأخير وهو الرقم الرقابى التى وضعته الوزارة
لو أعلم المنطق الخاص بذلك الرقم لوضعت شرط خاص به
لكن للأسف الوزارة لم تصرح بهذا الأمر

 
والآن كود الدالة المستخدم هو
Function AlsaqrIDTest(Num As String) As Boolean
    Dim regEx As Object
    Dim Y!, M%, D%, check As Boolean
    
Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "^[23]d{2}(0[1-9]|1[0-2])(0[1-9]|[1-2][0-9]|3[01])(0[1-6]|[1-2][1-9]|3[1-5]|88)d{4}[1-9]$"

    If regEx.test(Num) Then
    Y = Mid(Num, 2, 2) / 4
    M = Mid(Num, 4, 2)
    D = Mid(Num, 6, 2)
    check = IIf((Y = Int(Y) And M = "02" And D > 29) Or (Y <> Int(Y) And M = "02" And D > 28) Or (IsNumeric(Application.Match(M, Array("04", "06", "09", "11"), 0)) And D = 31), False, True)
    AlsaqrIDTest = check
    Else: AlsaqrIDTest = False: End If
End Function

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

لمن يريد أن يشمل التحقق لأكثر من 3 فى الخانة الأولى الخاصة بالقرن قم بتغيير الرقم 3 الموجود فى أول الجملة بعد ^[2 بهذا السطر
  regEx.Pattern = "^[23]d{2}(0[1-9]|1[0-2])(0[1-9]|[1-2][0-9]|3[01])(0[1-6]|[1-2][1-9]|3[1-5]|88)d{4}[1-9]$"

واكتب مكانه -4 ليتم التحقق حتى 4 أو 5 ليتم التحقق حتى 5 وهكذا كالتالى
^[2-4]
 

لتحميل ملف العمل وكود الدالة لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
الدالة من اعداد الأستاذ
ياسر خليل بالتعاون مع اسلام عبدالله
الملف يحتوى جدول تحليل الرقم القومى وقائمة بأكواد المحافظات
 
 
  Verification of the national number.rar   تحميل rar مرات التحميل :(37)
الحجم :(17.546) KB


15-08-2018 06:33 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى

جزاكم الله خيرا يا شباب عمل رائع 3


توقيع :الصقر

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


15-08-2018 07:08 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36622
عدد الإجابات: 255
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
بسم الله ما شاء الله 
أبدعت أخي الغالي إسلام ..بارك الله فيك وجزاك الله خير الجزاء 

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

15-08-2018 03:52 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1769
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
مشكور استاذ اسلام على هذا الشرح الرائع والدالة المفيدة جدا بارك الله فيك وجعله فى ميزان حسناتك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

15-08-2018 10:01 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
مشكور مروركم الكريم أساتذتى واخوانى الأعزاء
تقبلوا وافر احترامى وتقديرى 81

15-08-2018 11:18 مساء
مشاهدة مشاركة منفردة [5]
khaledmosad
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1436
المشاركات : 32
الجنس : ذكر
تاريخ الميلاد : 6-1-1971
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 62
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
جزاك الله خيرا استاذي الفاضل على اضافة المحافظتين
05 محافظة حلوان
06 محافظة السادس من اكتوبر
اما بخصوص تأكدي من هذا الامر نعم متأكد مائة بالمائة فهذان محافظتان تم تخصيصهم ثم الغائهم بعد ذلك 
لذلك لم تجدهم ضمن الاكواد
لكن
فيما يخص التربية والتعليم عناك عشرات الالاف مولودون بهاتين المحافظتين لذا يتم التعامل بهم حتي الان فيما يخص التلاميذ

15-08-2018 11:22 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
المشاركة الأصلية كتبت بواسطة: khaledmosad
جزاك الله خيرا استاذي الفاضل على اضافة المحافظتين
05 محافظة حلوان
06 محافظة السادس من اكتوبر
اما بخصوص تأكدي من هذا الامر نعم متأكد مائة بالمائة فهذان محافظتان تم تخصيصهم ثم الغائهم بعد ذلك 
لذلك لم تجدهم ضمن الاكواد
لكن
فيما يخص التربية والتعليم عناك عشرات الالاف مولودون بهاتين المحافظتين لذا يتم التعامل بهم حتي الان فيما يخص التلاميذ

تمام ، بارك الله في أستاذ خالد
ومشكور لتقديم الدعم لتحسين أداء الدالة بشكل أفضل وعرض النتائج بشكل صحيح
جزاك الله كل خير 81





الكلمات الدلالية
الدالة ، المعرفة ، AlsaqrIDTest ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:09 صباحا