تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل استطيع ان اجعل كومند بوتن لا يتفعل الا نهاية كل شهر
#1
السلام عليكم 
هل استطيع ان اجعل الخاصية ENABLE للكومند بوتن تتفعل فقط مرة في الشهر 
مثلا نهاية كل شهر 

وشكرا
الرد }}}
تم الشكر بواسطة:
#2
(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
الرد }}}
تم الشكر بواسطة: أسامة السالمي , samawi
#3
if mid(date.today,1,2)="30" then
button1.enabeld=true
else
button1.enabeld=false
endif
الرد }}}
تم الشكر بواسطة: samawi , samawi
#4
(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

اشكرك اخي وجزاك الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  [سؤال] كيف استطيع ان اعمل مثل هذه التبويبات في الواجهة كما في المرفق ادناه aYHAMMMS 0 294 14-07-23, 10:21 AM
آخر رد: aYHAMMMS
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel
  لا استطيع الحصول على الرقم التسلسلي للقرص C ابو محمد محمد محمد 6 737 27-04-23, 01:49 PM
آخر رد: ابو محمد محمد محمد
  [VB.NET] راديو بوتن & شيك بوكس الزويي 2 499 19-01-23, 05:25 PM
آخر رد: الزويي
  [سؤال] الخصم من راتب الموظف بشكل تلقائي نهاية كل شهر ... Aisha fa 1 522 09-11-22, 10:30 PM
آخر رد: Amir_Alzubidy
  كيف اجعل Autoscroll هي التي تزيد عدد الصفوف في عرض البيانات عبدالكريم برشدان 1 625 07-08-22, 02:55 PM
آخر رد: asmarsou
  [VB.NET] مشكلة اضافة بوتن لكل خلية بالداتاجريد فيو محمد اسماعيل 5 2,167 30-06-22, 08:29 PM
آخر رد: alessam4pro

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم