استخراج بيانات من الرقم القومي وحساب السن كقيم

[احمد بدره]

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

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

[Ali Mohamed Ali]

تفضل ولكن لا يوجد سوى دوال معرفة ولكنى وضعت لك كود لإظهار المعادلات كقيم

 

 

 

استخراج تاريخ الميلاد والنوع وحساب السن كقيم - .xlsm

[احمد بدره]

ألف شكر على مجهودك وتعبك ولكن عند إضافة أسماء اخرى لا تعمل

وعلى فكرة أستاذنا ومعلمنا الفاضل الأستاذ / إبراهيم الحداد قام بعمل حساب التاريخ في ملف الصف الثاني تجاري بواسطة ماكرو VBA فياريت نصل إلى استخراج تاريخ الميلاد في ماكرو مستقل والنوع في ماكرو آخر 

[Ali Mohamed Ali]

هذا هو كود تحديد السن المطلوب

Sub DatedIf_User()
Dim ws As Worksheet, Sh As Worksheet, Mh As Worksheet
Dim ShName As String, Rng As Range, c As Range
Dim LR As Long, VlDate As Variant
Application.ScreenUpdating = False
Set ws = Sheets(ActiveSheet.Name)
VlDate = ws.Range("K4").Value
 '----------------------------------
LR = ws.Cells(Rows.Count, "C").End(xlUp).Row
ws.Range("J6:L" & LR + 1).ClearContents
Set Rng = ws.Range("I6:I" & LR)
 '----------------------------------
If IsEmpty(VlDate) = True Then
MsgBox "ãä ÝÖáß ÇÏÎá ÊÇÑíÎ ÍÓÇÈ ÇáÓä"
Exit Sub
Else
On Error Resume Next
For Each c In Rng
If c.Value <> "" Then
YY = Year(VlDate)
y = Year(c.Value)
mm = Month(VlDate)
m = Month(c.Value)
dd = Day(VlDate)
d = Day(c.Value)
If d > dd And m > mm Then
c.Offset(0, 1) = dd + 30 - d
c.Offset(0, 2) = mm - m + 11
c.Offset(0, 3) = YY - y - 1
ElseIf d > dd And m < mm Then
c.Offset(0, 1) = dd - d + 30
c.Offset(0, 2) = mm - m - 1
c.Offset(0, 3) = YY - y
Else
c.Offset(0, 1) = dd - d
c.Offset(0, 2) = mm - m
c.Offset(0, 3) = YY - y
End If
End If
Next
End If
Application.ScreenUpdating = True
End Sub

 

 

[احمد بدره]

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

[ابراهيم الحداد]

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

جرب هذا الملف

 

الرقم القومى2.xlsm

[Ali Mohamed Ali]

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

.

 

 

[احمد بدره]

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

الشرط هو أن نكتب المعادلة التالية إذا لم يتحقق تكون النتيجة تأكد من الرقم القومي

=IF(AND(LEN(C4)<>14;ISNUMBER((C4)));"خطأ")