اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

السلام عليكم 

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

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

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

 

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

 

تم تعديل بواسطه عبدالفتاح في بي اكسيل
  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

 

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

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

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

رابط هذا التعليق
شارك

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

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

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

 

f.JPG

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information