moho58 قام بنشر يناير 20 قام بنشر يناير 20 السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل عندى مشكلة في حساب الفرق بين تاريخين بالسنوات فقط إلى غاية تاريخ اليوم : مثال تايخ الميلاد: 19/04/1994 العمر بالسنوات والشهور والايام إلى غاية تاريخ اليوم هو: 59 سنة و 09 أشهر و 01 يوم العمر بالسنوات فقط إلى غاية تاريخ اليوم هو: 60 سنة ومن المفروض يكون العمر هو : 59 الرجاء المساعدة والتوجيه وبارك الله فيكم مع العلم أني جربت الحل الموجود في في هذا الموضوع الذي يشبه موضوعي ولم تنججح معي: المثال المرفق: base1.accdb
Barna قام بنشر يناير 20 قام بنشر يناير 20 (معدل) 2 ساعات مضت, moho58 said: ومن المفروض يكون العمر هو : 59 مشاركة مع اخي الاستاذ @محمد احمد لطفى في حدث عند تحميل النموذج ضع هذا الكود ... مع مسح الدالة الموجودة في مربع نص العمر بالسنوات Dim intH, years As Integer intH = Int(DateDiff("m", date_naissance, Date)) + _ (Date < DateSerial(Year(Date), Month(Date), Day(date_naissance))) years = Int(intH / 12) نص22 = years تم تعديل يناير 20 بواسطه Barna 3
أفضل إجابة kanory قام بنشر يناير 20 أفضل إجابة قام بنشر يناير 20 مشاركة مع اساتذتي الكرام ........ استبدلها بهذا فقط =Int(DateDiff("d";[date_naissance];Date())/365.25) 1 1
moho58 قام بنشر يناير 20 الكاتب قام بنشر يناير 20 (معدل) 2 ساعات مضت, kanory said: مشاركة مع اساتذتي الكرام ........ استبدلها بهذا فقط =Int(DateDiff("d";[date_naissance];Date())/365.25) الأخ @kanory الكود شغال بامتياز ورائع شكرا كثيرا وربي يجازيك خير الجزاء - جعله الله في ميزان حسسناتك وصدقة جارية ان شاء الله فقط بدل نقطة (.) وضعت فاصلة(,) 365,25 تم تعديل يناير 20 بواسطه moho58
moho58 قام بنشر يناير 20 الكاتب قام بنشر يناير 20 الأخوة الأفاضل الكرام: @محمد احمد لطفى @Barna @kanory أشكركم جميعا على التفاعل والمشاركة والمساعدة مع الموضوع جعل الله في ميزان حسناتكم و ربي يجازيكم خير الجزاء **وربي يبارك في هذا المنتدى الجميل الرائع**
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.