+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين (/showthread.php?tid=13472)
الصفحات:
1
2
مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - صهيب محمد - 09-10-15
السلام عليكم شكرا لكم لما تقدموه لنا من مساعده لدي المشروع المرفق ولدي ثلاثة طلبات اتمنى ان تساعدوني وان لا اسبب لكم ازعاج بذلك
اولاً : كود اضافة رقم الي تاريخ :-
ممكن المساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين الي حقل تاريخ النزول الي المعاش (مثال)"-
تاريخ النزول الي المعاش= تاريخ التعيين+60 سنة
ثانياً :كيفية ربط الحضور والانصراف والغياب والاجازات والترقيات مع اسم الموظف
ثالثا : اكواد جمع (مرتبات الموظفين)
المرتب+معيشة+سكن+ترحيل+علاوة اجتماعية+علاوةاطفال= الجملة
الاستقطاعات هي : الضمان الاجتماعي+تامين صحي+دمغة= حملة الاستقطاعات
الصافي=الجملة-جملة الاستقطاعات
مع العلم بان المشروع ليس تجاري ولكني تعليمي فقط ، قاعدة البيانات باكسس97 و data control
RE: مشروع تخرج - أبو عمر - 09-10-15
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك طلباتك هي تنفيذ المشروع بالكامل
اختر القيام بواحد واترك الباقي علينا حتى تستطيع القول
للدكتور إن المشروع من تنفيذك
اتفقنا؟
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - صهيب محمد - 10-10-15
شكراً لك اخي الكريم
ممكن المساعدة فقط في كود الاضافة(التارخين) والحضور والانصراف فقط
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - أبو عمر - 10-10-15
مرحبا بك
في كود الحفظ داخل الجدول مثلا في حقل الحضور يكون
Text1.text= now
rs!arrived =text1.text
.
.
.
rs.update
ونفس الحال مع الانصراف بعد مضي مثلا ثمان سبع ساعات
Text2.text=Now
rs!leave=text2.text
.
.
.
rs.update
بهذا الشكل تستطيع حفظ الحضور والانصراف
بالتوفيق
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - صهيب محمد - 10-10-15
شكراً لك اخي الكريم علي هذه المساعدة
ممكن فضلك المساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين الي حقل تاريخ النزول الي المعاش (مثال)"-
تاريخ النزول الي المعاش= تاريخ التعيين+60 سنة
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - أبو عمر - 10-10-15
من غير مسميات لاني لا اعلم كيف يعمل برنامجك لكن بصورة عامة
dim x as integer:x = year(date)+60
Text1.Text= x & "/" & month(now) & "/" & day(now)
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - صهيب محمد - 10-10-15
شكراً جزيل لك
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - صهيب محمد - 10-10-15
الكواد غير شغالة
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - myalsailamy - 10-10-15
زيادة سنوات الى التاريخ ،، بنفس الطريقة تستطيع اضافة عدد ايام او شهور ...الخ
[attachment=8203]
أكتشف كلاس Now ففيه ما يسرك فقط ما عليك الا كتابة Now ثم نقطه و سيظهر لك ما يسرك
المعذره لم انتبه ان القسم للفيجول بيسك 6 ،،،
فقط تجاهل منشوري السابق و بامكانك استخدام كود الاخ ابو عمر ،، ما عليك الا بحذف النص المحدد بالاحمر في كوده
dim x as integer:x = year(date)+60
و ان شاء الله سيعمل بدون مشاكل
RE: مساعدة في كود اضافة 60 سنة من حقل تاريخ التعيين - Ahmed_Mansoor - 10-10-15
أهلا أخي الكريم ، كود إضافة عدد سنين معين إلى تاريخ معين هو كالتالي :
كود :
Date1 = "2015/10/10"
Date2 = DateAdd("yyyy",60,Date1)