[rochdi191]

(25-05-20, 01:25 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
عيد فطر مبارك اخي رشدي
هذا الكود سيجلب نهاية الشهر(اي كم يوم في الشهر الحالي) سواء 28 او 29 او 30 او31 حسب السنة والشهر
نقوم بعمل مقارنة بين تاريخ اليوم في الشهر الحالي مع عدد ايام الشهر فإن كان مساويا ينفذ الكود الذي نريد اكان صوت او رسالة حسبما تريد ويفضل رسالة تظهر في لايبل وستكون طوال اليوم ليراها المستخدم
بينما الصوت سينفذ في الساعة صفر +1 ثانية او تحدد له وقت معين وانا لا أفضله فلربما المستخدم لايفتح البرنامج في نفس التوقيت المحدد لذلك الرسالة على لايبل افضل سيراها المستخدم حتما 
اليك الكود وظفه حسب معطياتك

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       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) ' السنة الحالية
       '=============================
   End Sub

بارك الله فيك اخي ابراهيم
متالق كالعادة جعلها الله في ميزان حسناتك اخي
ممكن فديو في اليوتوب لفهم الكود
اما بخصوص الكريستور ريبورت لقد شاهدت دورة الاخ مهندس محمد البحراوي شرح وافي وشامل ولقد فهمت العملية الحمد لله وذلك بنصيحتك اخي شكرا لك