حساب عمري

[تومي محمد]

نستطيع حساب العمرلشخص ما في M.Word عن طريق الدالة DateDiff بعد إضافة " زر أمر " من التبويب [المطور] :

Private Sub CommandButton1_Click()

On Error Resume Next

Dim D, M, Y, D1, D2, TMP, MSG

D2 = Format(Date, "DD/MM/YYYY")

D1 = Format(InputBox("ENTER YOUR BIRTHDAY"),"DD/MM/YYYY")

If Not IsDate(D1) Then

MsgBox "INVALIDE DATE"

Exit Sub

End If

If DateValue(D1) >= DateValue(D2) Then

MsgBox "INVALIDE DATE"

Exit Sub

End If

Y = DateDiff("YYYY", D1, D2)

D1 = DateAdd("YYYY", Y, D1)

M = DateDiff("M", D1, D2)

D1 = DateAdd("M", M, D1)

D = DateDiff("D", D1, D2)

MSG = DAY" & D & " MONTH " & M & " YEARS " & Y

MsgBox MSG

End Sub

يمكن تغير DAY الى يوم وغيره

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

كما يمكن قراءة حساب العمر عن طريق EXCEL للأخ هشام مرسي من هنا http://www.officena....showtopic=32918

[تومي محمد]

MSG = DAY" & D & " MONTH " & M & " YEARS " & Y

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

MSG = " YEAR = " & Y & vbNewLine & " MONTH = " & M & vbNewLine & " DAYS =" & D

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