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

[فاطمة الحاج]

السلام عليكم 

وكل عام وانتم بالف خير 

أدام الله أعيادكم وكثرت أفراحكم وغُسلت همومكم وأحزانكم.

اذا تكرمتم مساعدتي في الفورم المرفق 

 

date of birth.xlsm

[عبدالفتاح في بي اكسيل]

هذه  محاولة  ولكن  يجب  ان  تتاكدي  من  عملية    اضافة  التاريخ  الجديد   لست  متاكد  اذا  كانت  تعمل  بشكل  جيد 

date of birth.xlsm

[فاطمة الحاج]

اخي الكريم  عبدالفتاح بارك الله فيك 

بحصوص الكود الاول صحيح وينتج عنه الايام والاشهر والعمر بالضبط

----------------------------------------------------------------------

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim firstdat As Date, enddat As Date

firstdat = n1.Value: enddat = n2.Value

Me.n3 = CalcAgeY([n1], [n2])

Me.n4 = CalcAgeM([n1], [n2])

Me.n5 = CalcAgeD([n1], [n2])

Application.ScreenUpdating = True

End Sub

---------------------------------------------------------------------

المشكلة بالكود التالي فقط يضيف الايام فقط 

اما بخصوص الاشهر والاعوام لا يضيفها 

Private Sub CommandButton2_Click()

    n7 = DateAdd("d", n5.Text, n6)

End Sub

شكرا لك وبارك الله فيك 

 

 

[عبدالفتاح في بي اكسيل]

 اعدريني  لقد  اغفلت  الاشهر  والسنوات  ولم  اقم  الا  بالايام    المفترض   ان  يعمل   جربي  هذا   التعديل  

Private Sub CommandButton2_Click()
    n7 = DateAdd("d", n5.Text, n6)
     n7 = DateAdd("M", n4.Text, n6)
      n7 = DateAdd("YYYY", n3.Text, n6)
End Sub

 

تم تعديل مايو 23, 2020 بواسطه عبدالفتاح في بي اكسيل

[فاطمة الحاج]

اخي الكريم عبدالفتاح اشكرك على هذا المجهود الرائع

بخصوص الكود المرفق :

Private Sub CommandButton2_Click()

     n7 = DateAdd("d", n5.Text, n6)
     n7 = DateAdd("M", n4.Text, n6)
     n7 = DateAdd("YYYY", n3.Text, n6)
    
End Sub

الكود يضيف فقط الاعوام 

مثال 

لو اخذنا تاريخ الميلاد / 01/01/2020

وتاريخ اليوم مثلاً: 16/03/2021

فتكون النتيجة كالاتي :

15 يوم و 2 شهرين و 1 سنة 

وعند ادخال التاريخ القديم مثلا: 01/01/2010

حسب الكود المرفق سابقا تظهر النتيجية التالية 1/1/2011

وهذ غير مضبوط النتيجة يجب ان تكون 16/3/2021

 

date of birth_up.xlsm

[عبدالفتاح في بي اكسيل]

جربي  هذ التعديل  وانشاء  الله  سيعمل 

Private Sub CommandButton2_Click()
   n7 = (n6 + n5.Value)
End Sub

 

[عبدالفتاح في بي اكسيل]

هل  انت  متاكدة  اختي  الكريمة  من طريقة  الحساب   لان  هذه  الدوال   لا  تحسب  بهذه  الطريقة   حيث  تقوم  بحساب   الايام  كلها   خلال  الفترة  المحددة  وبالتاي  ستظهر  440 يوم   و 14 شهر  و سنة  

 

وعند ادخال التاريخ القديم مثلا: 01/01/2010

كيف  نصبح  في 16/03/2021  انت  لم  تدخلي   الا سنة  وشهرين  و15  يوم  المفروض  في   2011   

بصراحة  لم  افهم   طريقة  حسابك   وهذه  الدوال  من  المستحيل  القيام بذلك 

[فاطمة الحاج]

اخي الكريم 

الشرح حسب الصورة المرفقة 

 

[عبدالفتاح في بي اكسيل]

الان  الصورة   واضحة   لكن  صدقا  ليس  لدي  اجابة  بخصوص  ذلك  ننتظر  من  الخبراء    لعلهم  يفيدوننا     اذا  حصلت  اي  شيء  من  الانترنت    ساقوم  بتزويد ك به 

اخت  فاطمة  الذي  تريدينه  يعطي  نفس  النتيجة 

وهذا  ما ظهر  عند  في  التاريخ  الجديد 

 

[فاطمة الحاج]

اخي الكريم عبدالفتاح اشكرك على هذا المجهود الرائع