[حريف برمجة]

(04-11-17, 06:53 AM)samawi كتب : السلام عليكم 
هل استطيع ان اجعل الخاصية ENABLE للكومند بوتن تتفعل فقط مرة في الشهر 
مثلا نهاية كل شهر 

وشكرا

وعليكم السلام ،،

الكود مشروح ،،

كود :

   'آخر يوم في الشهر الحالي
        Dim lastDay As Int16 = DateTime.DaysInMonth(Now.Year, Now.Month)
        'للتأكد من آخر يوم في الشهر
        MsgBox("آخر يوم في الشهر الحالي هو " & lastDay)



        'تاريخ اليوم الحالي
        Dim today As DateTime = Now
        'للتأكد من تاريخ اليوم الحالي
        MsgBox("اليوم الحالي بدون الشهر والسنة هو " & today.Day)



        'اذا اليوم يساوي آخر يوم في الشهر الحالي نفعل البوتن
        If lastDay = today.Day Then
            Button1.Enabled = True
        Else
            MsgBox("لايمكن تفعيل البوتن إلا في آخر يوم من كل شهر")
        End If