(28-01-17, 02:01 PM)أسامة السالمي كتب : الكود :
PHP كود :
Dim da1, da2 As Date
da1 = Today
da2 = DateTimePicker1.Value
Dim DayDiff As Integer
DayDiff = DateDiff(DateInterval.Day, da1, da2)
If DayDiff <= "0" Then
MsgBox("منتهي")
ElseIf DayDiff = Val("3") Or DayDiff = Val("2") Or DayDiff = Val("1") Then
MsgBox("تنبيه")
ElseIf DayDiff >= Val("4") Then
MsgBox("ساري")
End If
أتمنى يكون هذا اللي تحتاجه, لأني ما قدرت أنزل المشروع
اخي جربت اصافة الكود الى التكس الخاص ب انتهاء المشروغ .. ولكن توجد مشكلتين الاولى اني اول ما افتح صفحة اضافة مستخدم تظهر لي رسالة منتهي مع اني لم اقم بتحديد احد من ليسته .. الثانيه انه الكود هذا ما يشيك لي ل حاله قاعدة بيانات الاكسس ويشوف وين التاريخ الي باقي له يومين مثلا من اليوم ..
لتوضيح اكثر ..
تكس خاص بداية التاريخ
وتكس بنهاية التاريخ ..
مع العلم انه كلهم مربوطين بقاعدة بيانات اكسس ..
ف انا ابي اضيف مستخدمين الى قاعدة الباانات مثلا
احمد واسعد وعلي وحسين وناصر ...الخ
وكل واحد فيهم له تاريخ بداية ونهاية
ابي لما افتح قائمة الاضافة او اكون شغال ع برنامج البرنامج يشيك لي قاعدة الاكسس هل من ضمن المستخدمين معي احد شارف تاريخ نهايته من تاريخ ليوم ؟ اذا في ف هو يعطيني تنبيه ع طول اول من افتح هذا قائمة تبع الاضافه ويقولي لي ع حسب قاعدة البيانات انه مستخدم فلاني انتهاء تاريخه ..
مع العلم اني ارفقت مشروعي فوق وكل شي بيه جاهز الخانات وقاعدة بيانات .. فقط محتاج مساعده بعمل هذا الغرض لاني حاولت ابحث وابحث ولا قدرت احصل ...
وجدة مثال ويمكنني ارفقه لكم فيه كل الي ابيه ولكني حاولت ادمجه حسب مشروعي في مشروعي ولا نجحت وهذا بسبب ضعف خبرتي ف فيجول بيسك ...
رابط المثال..
http://gulf-up.com/do.php?id=253975
واسف ع الاطاله الكبيره
(28-01-17, 02:54 PM)مساعدة كتب : السلام عليكم
جرب هذا التعديل، وانتظر تضع رد بالنتيجة
http://gulf-up.com/do.php?id=253962
عفوا اخي نزلت المشروع وشغلته وقمت بتضبيط تاريخين ل نفس تاريخ اليوم ولكن لم يحصل اي شي .. اسف تعبتك معي ولكن اكيد فكرتي لم تصل جيدا اليك ردي السابق اكيد كان فيه الفكره بشكل اوضح