منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

وشكرا

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

وشكرا

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

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

if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif

(04-11-17, 12:03 PM)حريف برمجة كتب : [ -> ]

(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

اشكرك اخي وجزاك الله خير

---

(08-11-17, 03:02 AM)محمد محمود الغرياني كتب : [ -> ]if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif

اشكرك اخي وجزاك الله خير

---

(08-11-17, 03:02 AM)محمد محمود الغرياني كتب : [ -> ]if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif

اشكرك اخي وجزاك الله خير