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

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




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





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

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



14-08-2018 11:43 مساء
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1216
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 61
قوة السمعة : 7318
الاعجاب : 2068
 offline 

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

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

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]
 

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

لرؤية الروابط والمرفقات عليك الرد على الموضوع

أثارت هذه المشاركة إعجاب: الصقر، YasserKhalil، abdulwahed catran، ali mohamed ali، الحمدلله،





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

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



أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :الصقر

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



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

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

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah،




15-08-2018 03:52 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 622
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2996
الاعجاب : 967
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
مشكور استاذ اسلام على هذا الشرح الرائع والدالة المفيدة جدا بارك الله فيك وجعله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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





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

أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil،




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

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





16-08-2018 05:36 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4907
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 12
يتابعهم : 0
يتابعونه : 326
قوة السمعة : 14092
الاعجاب : 5244
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrIDTest لاختبار صحة الرقم القومى
بارك الله فيك أخي الكريم خالد ومشكور على تفاعلك بالموضوع وإثراء الموضوع
هل لديك علم بالرقم الرقابي .. أول رقم من ناحية اليمين؟

أثارت هذه المشاركة إعجاب: Eslam Abdullah،






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


 







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



الساعة الآن 09:09 مساء

أعلن هنا
أعلن هنا
أعلن هنا