السؤال الأول :
هل يمكن احتساب العمر
في خانة العمر
بطريقة تلقائية بمجرد تخزين تاريخ الميلاد
او اذا كان موجود بالفعل داخل قاعدة البيانات
و دون الضغط علي زر احتساب مثلاً
السؤال الثاني
اذا كان العمر يتخطي الـستين عام
تظهر في خانة المعاش
يحال للمعاش
بطريقة تلقائية
يمكن الاطلاع علي الصورة من المرفقات أيضاً
أولاً اشكرك كل الشكر لاهتمامك
لكن للاسف ما ظبطت و تعطي العمر بالسالب
اخي قم بتعديل السطر الموجود في الفورم لوود ليصبح هكذا
data2.SelText = Format(Date, "yyyy/mm/dd")
بس هذه الطريقة سوف يقوم البرنامج بحساب فارق السنوات فقط .
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
لطرح تاريخين من بعض استخدم دالة datediff
ويمكنك تعديل السطر الموجود في حدث data1_change ليصبح
On Error Resume Next
Text1.Text = DateDiff("y", data2.Text, data1.Text)تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
السلام عليكــم ورحمـة الله وبركاتــه ،،
اخي في المثال الذي ارفقته لك لايعطي التاريخ بالسالب لا في حالة وجود خطاء في اعدادات التاريخ في جهازك
قم بظبط اعدادات التاريخ من الاعدادات الاقليمة علي النحو التالي
yyyy/mm/dd
وكما قال لك الاخ oMANIسوف تحسب الفرق في السنوات فقط اتقد هذا ما تحتاجه
وفقك الله
كل الشكر اخواني الكرام لتعاونكم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
