تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين
#1
Information 
السلام عليكم شكرا لكم لما تقدموه لنا من مساعده لدي المشروع المرفق ولدي ثلاثة طلبات اتمنى ان تساعدوني وان لا اسبب لكم ازعاج بذلك
اولاً : كود اضافة رقم الي تاريخ :-
ممكن المساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين الي حقل تاريخ النزول الي المعاش (مثال)"-
تاريخ النزول الي المعاش= تاريخ التعيين+60 سنة

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

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



الملفات المرفقة
.rar   تصميم البرنامج.rar (الحجم : 426.07 ك ب / التحميلات : 67)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك طلباتك هي تنفيذ المشروع بالكامل
اختر القيام بواحد واترك الباقي علينا حتى تستطيع القول
للدكتور إن المشروع من تنفيذك
اتفقنا؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
شكراً لك اخي الكريم
ممكن المساعدة فقط في كود الاضافة(التارخين) والحضور والانصراف فقط
الرد }}}
تم الشكر بواسطة:
#4
مرحبا بك
في كود الحفظ داخل الجدول مثلا في حقل الحضور يكون
Text1.text= now
rs!arrived =text1.text
.
.
.
rs.update
ونفس الحال مع الانصراف بعد مضي مثلا ثمان سبع ساعات
Text2.text=Now
rs!leave=text2.text
.
.
.
rs.update
بهذا الشكل تستطيع حفظ الحضور والانصراف
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
شكراً لك اخي الكريم علي هذه المساعدة

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

   

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

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

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

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

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

كود :
Date1  = "2015/10/10"
Date2 = DateAdd("yyyy",60,Date1)
الرد }}}
تم الشكر بواسطة: أبو عمر



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم