[mazentq]

السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير عيد سعيد عليكم وعلي احلي اعضاء فيجوال بيسك 
بعد اذنكم لدي طلب بسيط 
لدي قسم في برنامج خاص بشركة عاز وهو قسم تحويل السيارت من بنزين لغاز
فهماك تاريخين في قاعدة البيانات 
1- تاريخ تقديم السيارة للتحويل 
2- تاريخ الانتهاء من تحويل السارة 

فكنت اريد طريقة لاجعل البرنامج يصدر رنين او تنبية عند انتهاء التاريخ 
مثلا ان قمت بالتقديم بتاريخ 25/5/2020
وتم تحديدتاريخ استلام السيارة بعد التحويل بتاريخ 30/5/2020
فكدة يبقي 5 ايام ان بقي عاوز بعد ما الخمس ايام دول يعده البرنامج يرن او يعمل اي منبة يقلي ان السيارة دي خلصت وجهازة للتسليم 

وشكرا جزيلا

[rochdi191]

السلام عليكم
اخي نفس السؤال تم طرحته انا
تفضل ان شاء الله تستفيد من الموضوع
http://vb4arb.com/vb/showthread.php?tid=34928

[mazentq]

(25-05-20, 09:13 PM)rochdi191 كتب : السلام عليكم
اخي نفس السؤال تم طرحته انا
تفضل ان شاء الله تستفيد من الموضوع
http://vb4arb.com/vb/showthread.php?tid=34928

شكرا اخي ولكن السوال متشابة فقط لكن ان اريد ان يتاعمل مع تاريخ في قاعدة البيانات نفسها بيحث ان يعطي التنبيه بناء علي التاريخ الانتهاء الموجود في قاعدة البيانات

[rochdi191]

ادخل اخي وراجع كل من الموضوعين لعلك تستفيد
http://vb4arb.com/vb/showthread.php?tid=22654
كود تنبيه لتاريخ لتجديد الرخصة
http://vb4arb.com/vb/showthread.php?tid=2934

---

ضع الكود في datagriview
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
Dim yer As Integer = Now.Year ' يجلب السنة الحالية
Dim LastDay As Integer = Date.DaysInMonth(yer, mnth) ' يجلب كم يوم في الشهر الحالي
' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
If Now.ToString("dd") = LastDay Then
MsgBox("hello")
End If
'============================
'هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
MsgBox(LastDay) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
MsgBox(yer) ' السنة الحالية
'=============================

وقم بضعط على تواريخ ولاحظ ما يجري

[mazentq]

(25-05-20, 09:51 PM)rochdi191 كتب : ادخل اخي وراجع كل من الموضوعين لعلك تستفيد
http://vb4arb.com/vb/showthread.php?tid=22654
كود تنبيه لتاريخ لتجديد الرخصة
http://vb4arb.com/vb/showthread.php?tid=2934

---

ضع الكود في datagriview
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
       Dim yer As Integer = Now.Year ' يجلب السنة الحالية
       Dim LastDay As Integer = Date.DaysInMonth(yer, mnth) ' يجلب كم يوم في الشهر الحالي
       ' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
       If Now.ToString("dd") = LastDay Then
           MsgBox("hello")
       End If
       '============================
       'هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
       MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
       MsgBox(LastDay) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
       MsgBox(yer) ' السنة الحالية
       '=============================

وقم بضعط على تواريخ ولاحظ ما يجري

شكرا اخي هدخل واشوف كل الموضيع

[ابراهيم ايبو]

السلام عليكم اخي الكريم
مسالة اظهار رسالة تفيد بتاريخ معين يراد به القيام بعمل ما متعددة الاستخدام
حيث يمكننا استخدامها في المواد التي تنتهي صلاحيتها مثلا 
او موعد تغيير زيت السيارة او موعد الصيانة
او جدولة مواعيد وغيرها الكثبر الفكرة واحدة فقط تغيير المفردات الخاصة بالهدف المراد
اليك مثال لاظهار رسالة للمستخدم تعلمه بانتهاء صلاحية مادة بعد 3 ايام تظهر في الليس بوكس
وفي المثال يمكنك معرفة التواريخ القادمة لانتهاء صلاحيات المواد حسب عدد الايام التي ستحددها او التي انتهت ايضا حسب الايام
يمكنك تعديل المثال ومفردات قاعدة البيانات لتناسب مشروع السيارة عندك