25-05-20, 08:34 PM
(25-05-20, 08:11 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم
لنفترض اننا نجهل كم يكون عدد ايام الشهر الحالي او اي شهر وهي التي سميتها LastDay
هذه الدالة تجلب كم يوم في الشهر وهي تحتاج الى باراميترين هما رقم السنة ورقم الشهركود :
Dim LastDay As Integer = Date.DaysInMonth(yer, mnth)
وبما اننا دائما نريد الشهر الذي نحن فيه اذا نحتاج الى تعريف متغيرين الاول يجلب رقم السنة والثاني رقم الشهر الحاليين
عبر هذين المتغيرين
الان اصبح بامكاننا معرفة نهاية الشهر وهي العدد الذي جلبناه من الدالة ونحن الان في الشهر الخامس سيكون عدد ايامه 31 يومكود :
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
Dim yer As Integer = Now.Year ' يجلب السنة الحالية
الان سيتم التحقق من اليوم الحالي(نحن اليوم هو 25) اذا كان مساويا لـ 31 تظهر رسالة وبالطبع ال25 لاتساوي 31 لذلك لن تظهر الرسالة الا في اليوم 31 من هذا الشهر
والشهر القادم هو حزيران عدد ايامه 30 وستظهر الرسالة في 30
ولو كنا في شهر شباط من هذا العام وهو سنة كبيسة ستظهر الرسالة يوم 29
وفي العام القادم سيكون عدد ايام شهر شباط 28 ستظهر الرسالة يوم 28
ببساطة استطعنا تحديد يوم نهاية الشهر ليمكننا المقارنة به مع اليوم الذي نحن فيه عبر هذه الجملة الشرطية
اتمنى ان يكون الشرح وافياكود :
If Now.ToString("dd") = LastDay Then
MsgBox("hello")
End If
بارك الله فيك اخي ابراهيم يا استاذ دمت دعما للمنتدى شرح مبسط و وافي وكافي
و جزاك الله عنا خيرا يا رب
يا ريت ديرلنا دورات اخي نستفيد من خبرتك
