منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم شكرا لكم لما تقدموه لنا من مساعده لدي المشروع المرفق ولدي ثلاثة طلبات اتمنى ان تساعدوني وان لا اسبب لكم ازعاج بذلك
اولاً : كود اضافة رقم الي تاريخ :-
ممكن المساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين الي حقل تاريخ النزول الي المعاش (مثال)"-
تاريخ النزول الي المعاش= تاريخ التعيين+60 سنة

ثانياً :كيفية ربط الحضور والانصراف والغياب والاجازات والترقيات مع اسم الموظف

ثالثا : اكواد جمع (مرتبات الموظفين)
المرتب+معيشة+سكن+ترحيل+علاوة اجتماعية+علاوةاطفال= الجملة
الاستقطاعات هي : الضمان الاجتماعي+تامين صحي+دمغة= حملة الاستقطاعات
الصافي=الجملة-جملة الاستقطاعات
مع العلم بان المشروع ليس تجاري ولكني تعليمي فقط  ، قاعدة البيانات باكسس97     و   data control

وعليكم السلام ورحمة الله وبركاته
بارك الله فيك طلباتك هي تنفيذ المشروع بالكامل
اختر القيام بواحد واترك الباقي علينا حتى تستطيع القول
للدكتور إن المشروع من تنفيذك
اتفقنا؟
شكراً لك اخي الكريم
ممكن المساعدة فقط في كود الاضافة(التارخين) والحضور والانصراف فقط
مرحبا بك
في كود الحفظ داخل الجدول مثلا في حقل الحضور يكون
Text1.text= now
rs!arrived =text1.text
.
.
.
rs.update
ونفس الحال مع الانصراف بعد مضي مثلا ثمان سبع ساعات
Text2.text=Now
rs!leave=text2.text
.
.
.
rs.update
بهذا الشكل تستطيع حفظ الحضور والانصراف
بالتوفيق
شكراً لك اخي الكريم علي هذه المساعدة

ممكن فضلك المساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين الي حقل تاريخ النزول الي المعاش (مثال)"-
تاريخ النزول الي المعاش= تاريخ التعيين+60 سنة
من غير مسميات لاني لا اعلم كيف يعمل برنامجك لكن بصورة عامة
dim x as integer:x = year(date)+60
Text1.Text= x & "/" & month(now) & "/" & day(now)
شكراً جزيل لك
الكواد غير شغالة
زيادة سنوات  الى  التاريخ  ،، بنفس الطريقة تستطيع اضافة عدد ايام او شهور  ...الخ  

[attachment=8203]

أكتشف كلاس  Now ففيه  ما يسرك  فقط ما عليك الا كتابة Now ثم  نقطه  و سيظهر لك ما يسرك   Wink

المعذره لم انتبه ان القسم للفيجول بيسك  6  ،،، 

فقط تجاهل منشوري السابق  و  بامكانك  استخدام كود الاخ ابو  عمر  ،، ما عليك الا بحذف النص المحدد بالاحمر في كوده 

dim x as integer:x = year(date)+60

و ان شاء الله سيعمل  بدون مشاكل 
أهلا أخي الكريم ، كود إضافة عدد سنين معين إلى تاريخ معين هو كالتالي :

كود :
Date1  = "2015/10/10"
Date2 = DateAdd("yyyy",60,Date1)
الصفحات : 1 2