[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) ' السنة الحالية
       '=============================

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

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