السلام عليكم تم اختصار الوحدات النمطية الموجودة في المثال  بواحدة تقوم بالمهمة Public vYears As Integer, vMonths As Integer, vWeeks As Integer, vDays As Integer Function CalcAge(vDate1 As Date, vdate2 As Date) As String vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays