مشكلة في datediff عند حساب الفرق بين تاريخين بالسنوات فقط

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

 

عندى مشكلة في حساب الفرق بين تاريخين بالسنوات فقط إلى غاية تاريخ اليوم :

مثال تايخ الميلاد: 19/04/1994

العمر  بالسنوات والشهور والايام إلى غاية تاريخ اليوم هو: 59 سنة و 09 أشهر  و 01 يوم

العمر بالسنوات فقط إلى غاية تاريخ اليوم هو:  60 سنة

ومن المفروض يكون العمر هو  : 59

الرجاء المساعدة والتوجيه وبارك الله فيكم

مع العلم أني جربت الحل الموجود في في هذا الموضوع الذي يشبه موضوعي ولم تنججح معي:

 

المثال المرفق:

 

base1.accdb

[محمد احمد لطفى]

تفضل 

base1.accdb

[Barna]

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

[kanory]

مشاركة مع اساتذتي الكرام ........ استبدلها بهذا فقط

=Int(DateDiff("d";[date_naissance];Date())/365.25)

 

[moho58]

2 ساعات مضت, kanory said:

مشاركة مع اساتذتي الكرام ........ استبدلها بهذا فقط

=Int(DateDiff("d";[date_naissance];Date())/365.25)

 

 

الأخ @kanory  الكود شغال بامتياز ورائع

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

فقط بدل نقطة (.) وضعت فاصلة(,) 

365,25

تم تعديل يناير 20 بواسطه moho58

[moho58]

الأخوة الأفاضل الكرام:

@محمد احمد لطفى          @Barna    @kanory

 

أشكركم جميعا على التفاعل  والمشاركة والمساعدة  مع الموضوع جعل الله في ميزان حسناتكم

و ربي يجازيكم خير  الجزاء

 

**وربي يبارك في هذا المنتدى الجميل الرائع**