Excel: الحصول على العمر أو حسابه من تاريخ الميلاد

إذا كانت لديك قائمة بتواريخ ميلاد الموظفين في ورقة عمل Excel وتريد حساب عمر كلٍّ منهم، فثمة دوال مفيدة في Excel—مثل YEARFRAC أو DATEDIF—تساعدك على استخراج العمر من تاريخ الميلاد بسرعة وسهولة.

• احسب العمر استنادًا إلى تاريخ الميلاد باستخدام دالة YEARFRAC
• احسب العمر استنادًا إلى تاريخ الميلاد باستخدام دالة DATEDIF
• احسب العمر استنادًا إلى تاريخ الميلاد بالسنوات والأشهر والأيام
• احسب العمر في تاريخ معيّن في Excel
• احسب العمر استنادًا إلى تاريخ الميلاد قبل 1900
• احسب العمر استنادًا إلى تاريخ الميلاد من التاريخ الحالي أو تاريخ معيّن باستخدام ميزة رائعة

احسب العمر استنادًا إلى تاريخ الميلاد باستخدام دالة YEARFRAC

في Excel، يمكن لدالة YEARFRAC مساعدتك في الحصول على العمر من تاريخ الميلاد المعيّن، والصيغة العامة هي:

• birthdateتاريخ عيد الميلاد.
• TODAY(): تُرجع هذه الدالة تاريخ اليوم.

لذا، يُرجى استخدام الصيغة التالية في خلية فارغة:

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

ملاحظة: تكون النتيجة المحسوبة رقمًا عشريًا عند استخدام دالة YEARFRAC، ولجعل رقم العمر عددًا صحيحًا، يجب دمج دالة INT على النحو التالي:

وسوف تحصل على الأعمار كأعداد صحيحة:

احسب العمر استنادًا إلى تاريخ الميلاد باستخدام دالة DATEDIF

يمكن لدالة DATEDIF أيضًا تحويل تاريخ الميلاد إلى عمر، والصيغة العامة هي:

• birthdate: تاريخ الميلاد.
• TODAY(): تُرجع هذه الدالة تاريخ اليوم.
• y: تُرجع عدد السنوات الكاملة منذ تاريخ الميلاد وحتى التاريخ الحالي.

الآن، يُرجى إدخال أو نسخ الصيغة التالية في خلية فارغة:

وقد تم حساب جميع الأعمار استنادًا إلى تاريخ الميلاد، انظر لقطة الشاشة:

احسب العمر استنادًا إلى تاريخ الميلاد بالسنوات والأشهر والأيام

إذا كنت ترغب في الحصول على العمر الدقيق للأشخاص، مثل عدد السنوات والأشهر والأيام من تواريخ ميلادهم حتى التاريخ الحالي، فيجب عليك دمج دوال DATEDIF في صيغة واحدة على النحو التالي:

بعد ذلك، ستحصل على النتائج كما في لقطة الشاشة التالية:

ملاحظة: إذا كنت ترغب في تجاهل السنة أو الشهر أو اليوم الذي تكون قيمته 0 عند تطبيق الصيغة أعلاه، يمكنك دمج دالة IF لفحص القيم التي تساوي 0. يُرجى استخدام هذه الصيغة:

بعد ذلك، ستحصل على لقطة الشاشة التالية حسب حاجتك، حيث يتم عرض جميع الأعمار بالسنوات والأشهر والأيام دون قيمة 0:

احسب العمر في تاريخ معيّن في Excel

أحيانًا، قد ترغب في حساب العمر من تاريخ الميلاد حتى تاريخ معيّن بدلًا من التاريخ الحالي. في هذه الحالة، كل ما عليك فعله هو استبدال دالة TODAY() في المعامل الثاني بذلك التاريخ المعيّن. على سبيل المثال:

• birthdate: تاريخ عيد الميلاد.
• specific_dateتاريخ الانتهاء الذي ترغب في حساب العمر حتىه بدءًا من تاريخ الميلاد.
• y: تُرجع عدد السنوات الكاملة من تاريخ الميلاد حتى التاريخ الحالي.

يرجى استخدام الصيغة على النحو التالي:

بعد ذلك، سيتم حساب الأعمار من تاريخ الميلاد حتى التاريخ المعيّن كما في لقطة الشاشة التالية:

ملاحظة: للحصول على العمر الدقيق بالسنوات والأشهر والأيام، يُرجى استخدام الصيغة التالية:

احسب العمر استنادًا إلى تاريخ الميلاد قبل 1900

لا تعمل الصيغ السابقة بشكل صحيح عندما يكون تاريخ الميلاد قبل عام 1900، لأن Excel يخزّن تلقائيًا أي تاريخ سابق لعام 1900 بتنسيق نصي. ولذلك، نقدّم لك دالة معرّفة من قِبل المستخدم (UDF) تساعدك على حساب العمر بدقة حتى لو كان تاريخ الميلاد أقدم من عام 1900.

1. اضغط علىAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. ثم انقر علىإدراج > وحدة نمطية، ثم انسخ كود VBA التالي في نافذة الوحدة النمطية.

احسب العمر من تاريخ الميلاد قبل 1900 حتى اليوم:

Function AgelnNow(ByVal xDate As Variant)
Dim xIA As Integer
xIA = 0
On Error Resume Next
xIA = DateDiff("yyyy", xDate, Now())
If (Month(Now()) < Month(xDate)) Or (Month(xDate) = Month(Now())) Then
If (Day(Now()) < Day(xDate)) Then
xIA = xIA - 1
End If
End If
If xIA = -1 Then
AgelnNow = "Error"
Else
AgelnNow = xIA
End If
End Function

3. بعد ذلك، أدخل الصيغة التالية في خلية فارغة: =AgelnNow(A2) (A2 هي خلية تاريخ الميلاد).

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

ملاحظة: إذا كنت بحاجة إلى حساب العمر من تاريخ الميلاد حتى تاريخ الوفاة بدلًا من التاريخ الحالي، يُرجى تطبيق الكود التالي:

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

Function Age(ByVal StartDate As Variant, ByVal EndDate As Variant)
    Dim xIA As Integer
    xIA = 0
    On Error Resume Next
    xIA = DateDiff("yyyy", StartDate, EndDate)
    If (Month(EndDate) < Month(StartDate)) Or (Month(StartDate) = Month(EndDate)) Then
        If (Day(EndDate) < Day(StartDate)) Then
            xIA = xIA - 1
        End If
    End If
    If xIA = -1 Then
       Age = "Error"
    Else
        Age = xIA
    End If
End Function

واستخدم هذه الصيغة:=Age(A2,B2)(A2هي خلية تاريخ الميلاد، وB2هي خلية تاريخ الوفاة) للحصول على النتيجة كما في لقطة الشاشة التالية:

احسب العمر استنادًا إلى تاريخ الميلاد من التاريخ الحالي أو تاريخ معيّن باستخدام ميزة رائعة

الدوال ذات الصلة المستخدمة:

مقالات ذات صلة بحساب العمر: