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

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

قام بنشر

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

 

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

مثال تايخ الميلاد: 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
  • أفضل إجابة
قام بنشر

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

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

 

  • Like 1
  • Thanks 1
قام بنشر (معدل)
2 ساعات مضت, kanory said:

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

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

 

 

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

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

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

365,25

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

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

@محمد احمد لطفى          @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.

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

×   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