معادلة لتحديد تاريخ الميلاد ومحافظة الميلاد من الرقم القومي

[aladdin61]

ارجو المساعدة بمعادلة تحسب لى تاريخ الميلاد ومحافظة الميلاد من الرقم القومى

[Ali Mohamed Ali]

تفضل هذا الملف

 

استخراج كل البيانات من الرقم القومى.xls

[aladdin61]

بارك الله فيك يا أستاذ على

وجعل كل هذه الأعمال فى ميزان حسناتك

حبيبى فى الله

 

[aladdin61]

ولكن با أستاذ على عندما أردت أن أنسخ المعادلات لاحظت أمرين :

الأول : أنه تقريبا لا توجد معادلات

الثانى : أن المعادلات ( التى ربما لاتكون معادلات مثل (Ahmed_Date(B2;1= ) محمية وغير قابلة للنسخ

فماذا أفعل لنسخ المعادلات فى ملف العمل الخاص بى

وجزاكم الله خيرا

[Ali Mohamed Ali]

لابد قبل نسخ المعادلة تقوم بالضغط على Alt F11 ثم فتح موديول جديد ولصق فيه هذا الكود :

Function Ahmed_Date(myid As Variant, Optional stype As Byte = 1) As Variant
If myid = "" Then Ahmed_Date = "": Exit Function
Dim n As Byte, governrate As Variant
If stype = 1 Then
    Ahmed_Date = DateSerial(IIf(Left(myid, 1) = 2, 19, 20) & Mid(myid, 2, 2), Mid(myid, 4, 2), Mid(myid, 6, 2))
ElseIf stype = 2 Then
governrate = Array("01-ÇáÞÇåÑÉ", "02-ÇáÅÓßäÏÑíÉ", "03-ÈæÑÓÚíÏ", "04-ÇáÓæíÓ", "11-ÏãíÇØ", "12-ÇáÏÞåáíÉ", "13-ÇáÔÑÞíÉ" _
, "14-ÇáÞáíæÈíÉ", "15-ßÝÑ ÇáÔíÎ", "16-ÇáÛÑÈíÉ", "17-ÇáãäæÝíÉ", "18-ÇáÈÍíÑÉ", "31-ÇáÈÍÑ ÇáÃÍãÑ", "32-ÇáæÇÏì ÇáÌÏíÏ" _
, "19-ÇáÅÓãÇÚíáíÉ", "21-ÇáÌíÒÉ", "22-Èäí ÓæíÝ", "23-ÇáÝíæã", "24-ÇáãäíÇ", "25-ÃÓíæØ", "34-ÔãÇá ÓíäÇÁ", "35-ÌäæÈ ÓíäÇÁ" _
, "26-ÓæåÇÌ", "27-ÞäÇ", "28-ÃÓæÇä", "29-ÇáÃÞÕÑ", "33-ãØÑæÍ", "88-ÎÇÑÌ ãÕÑ")
    For n = 0 To 27
        If Mid(myid, 8, 2) = Left(governrate(n), 2) Then
            Ahmed_Date = Right(governrate(n), Len(governrate(n)) - 3)
            Exit For
        End If
    Next
Else
    Ahmed_Date = IIf(Mid(myid, 13, 1) Mod 2 = 0, "ÃËäì", "ÐßÑ")
End If
End Function

ثم بعد ذلك تقوم بوضع هذه المعادلة بصفحة الإكسيل كما بالملف المرسل لك

=Ahmed_Date(B2,1)

اتمنى ان اكون قد وضحت الأمر-بارك الله فيك

[aladdin61]

بارك الله فيك يا أستاذ على

وجعل كل هذه الأعمال فى ميزان حسناتك

حبيبى فى الله

لا أجد أفضل من القول "جزاك الله خيرا"

[Ali Mohamed Ali]

بارك الله فيك اخى الكريم ولك بمثل ما دعوت لى وزيادة

واحبك الله الذى احببتنى من اجله ,والحمد لله الذى بنعمته تتم الصالحات

.

 

 

.