• 0
abouzak

سؤال: كيف احسب العمر بمجرد كتابة سنة الميلاد

سؤال

عندي سؤال:  كيف احسب العمر بمجرد كتابة سنة الميلاد

اريد كود لخانة العمر، بعد ان اكتب سنة الميلاد (لا تاريخ الميلاد) في خانة الميلاد

ان يتم حساب الفرق بين السنة الحالية و سنة الميلاد

بمعنى اخر اريد كود الفرق بين رقمين

وشكرا

تم تعديل بواسطه abouzak
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 1
On ١٩‏/١‏/١٤٣٨ هـ at 11:32 PM, احمد المبرمج said:

السلام عليكم ، الاخ malik2010 لماذا قمت بوضع الملف db2.mdb الذي قمت انا بوضعه 

وعليكم السلام ،،

حياك الله اخ احمد ، قمت بتحمل مثالك لاجده هل هو صحيح ام لا فوجده لا يعمل ، فقمت بتغيير عمله ونقلته الى صاحب السؤال

اذا كان في ذلك خطأ ما .. فاعذرني لم اقصد شيء .. والله من وراء القصد..

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ، من الممكن استخدام هذه الدالة ونضعها في مصدر عنصر التحكم 

Year(Now())-[YearOfBirth]) 

 

db2.mdb

تم تعديل بواسطه احمد المبرمج
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اخي الكريم ضع هذا الكود في وحدة نمطية ثم استدعيها في الاستعلام 

Function dat(bir As Date)
If IsNull(bir) = True Then
dat = Format("00", "00") & "-" & Format("00", "00") & "-" & Format("00", "00")
Else
Dim nday As Integer, nmon As Integer, nyea As Integer
Dim bday As Integer, bmon As Integer, byea As Integer
bday = Day(bir)
bmon = Month(bir)
byea = Year(bir)
nday = Day(Date)
nmon = Month(Date)
nyea = Year(Date)
If bday > nday Then
nday = nday + 30
nmon = nmon - 1
End If
If bmon > nmon Then
nmon = nmon + 12
nyea = nyea - 1
End If
Dim dd, mm, yy
dd = nday - bday
mm = nmon - bmon
yy = nyea - byea
dat = Format(yy, "00") & "-" & Format(mm, "00") & "-" & Format(dd, "00")
End If
End Function

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ، الاخ malik2010 لماذا قمت بوضع الملف db2.mdb الذي قمت انا بوضعه 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .