فاطمة الحاج قام بنشر مايو 22, 2020 مشاركة قام بنشر مايو 22, 2020 السلام عليكم وكل عام وانتم بالف خير أدام الله أعيادكم وكثرت أفراحكم وغُسلت همومكم وأحزانكم. اذا تكرمتم مساعدتي في الفورم المرفق date of birth.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر مايو 22, 2020 أفضل إجابة مشاركة قام بنشر مايو 22, 2020 هذه محاولة ولكن يجب ان تتاكدي من عملية اضافة التاريخ الجديد لست متاكد اذا كانت تعمل بشكل جيد date of birth.xlsm رابط هذا التعليق شارك More sharing options...
فاطمة الحاج قام بنشر مايو 23, 2020 الكاتب مشاركة قام بنشر مايو 23, 2020 اخي الكريم عبدالفتاح بارك الله فيك بحصوص الكود الاول صحيح وينتج عنه الايام والاشهر والعمر بالضبط ---------------------------------------------------------------------- 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 شكرا لك وبارك الله فيك رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 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 تم تعديل مايو 23, 2020 بواسطه عبدالفتاح في بي اكسيل 1 رابط هذا التعليق شارك More sharing options...
فاطمة الحاج قام بنشر مايو 23, 2020 الكاتب مشاركة قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مايو 25, 2020 مشاركة قام بنشر مايو 25, 2020 جربي هذ التعديل وانشاء الله سيعمل Private Sub CommandButton2_Click() n7 = (n6 + n5.Value) End Sub 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مايو 25, 2020 مشاركة قام بنشر مايو 25, 2020 هل انت متاكدة اختي الكريمة من طريقة الحساب لان هذه الدوال لا تحسب بهذه الطريقة حيث تقوم بحساب الايام كلها خلال الفترة المحددة وبالتاي ستظهر 440 يوم و 14 شهر و سنة وعند ادخال التاريخ القديم مثلا: 01/01/2010 كيف نصبح في 16/03/2021 انت لم تدخلي الا سنة وشهرين و15 يوم المفروض في 2011 بصراحة لم افهم طريقة حسابك وهذه الدوال من المستحيل القيام بذلك رابط هذا التعليق شارك More sharing options...
فاطمة الحاج قام بنشر مايو 25, 2020 الكاتب مشاركة قام بنشر مايو 25, 2020 اخي الكريم الشرح حسب الصورة المرفقة رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مايو 25, 2020 مشاركة قام بنشر مايو 25, 2020 الان الصورة واضحة لكن صدقا ليس لدي اجابة بخصوص ذلك ننتظر من الخبراء لعلهم يفيدوننا اذا حصلت اي شيء من الانترنت ساقوم بتزويد ك به اخت فاطمة الذي تريدينه يعطي نفس النتيجة وهذا ما ظهر عند في التاريخ الجديد 1 رابط هذا التعليق شارك More sharing options...
فاطمة الحاج قام بنشر مايو 29, 2020 الكاتب مشاركة قام بنشر مايو 29, 2020 اخي الكريم عبدالفتاح اشكرك على هذا المجهود الرائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.