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

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


moho58
إذهب إلى أفضل إجابة Solved by kanory,

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

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

 

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

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

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

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

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

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

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

 

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

 

base1.accdb

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

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

 

1.png

تم تعديل بواسطه Barna
  • Like 3
رابط هذا التعليق
شارك

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

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

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

 

 

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

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

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

365,25

تم تعديل بواسطه moho58
رابط هذا التعليق
شارك

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

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

 

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

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

 

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

 

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information