المساعدة في حساب عدد ايام الشهر في الجدول الفرعي حسب ايام الشهر في الحاسوب

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته 

طلبي مشروح داخل النموذج الرئيسي للبرنامج المرفق 

مع وافر التحايا 

ProgEmpV30.rar

[حربي العنزي]

للرفع

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي حربي

هذه المعادلة تحضر لك أيام الشهر حسب الشهر في الحاسوب

ضعها في النص الذي تريد اظهارها فيه

=Day(DateSerial(Year(Date()),Month(Date())+1,0))

 

[حربي العنزي]

استاذي الفاضل AlwaZeeR شكرا جزيلا لردك ربي يخليك يارب 

هذه المعادلة موجوده عندي 

لكن طلبي هو في النموذج الفرعي ايام الشهر من 1  الى 31  وطبعا انا عاملها كخانة اختيار  اريد اذا الشهر 30 يوم يحذف اخر يوم الذي هو 31 يظهر في النموذج الفرعي 

فقط من يوم 1  الى يوم 30 

واذا كان الشهر مثلا 31 يوم يظهر اخر يوم الذي هو 31 وهكذا 

مع وافر التحايا 

[حربي العنزي]

للرفع

[حربي العنزي]

للرفع

[ابو عارف]

تفضل اخي التعديل حسب فهمي من السؤال

 

 

تم تعديل نوفمبر 7, 2018 بواسطه ابو عارف

[AlwaZeeR]

اعذرني اخي لضيق الوقت:

تفضل

 

=Day(DateSerial(Year(Date()),Month(Date())+1,0))

 

    Dim iloop As Integer
    For iloop = 1 To 31
        With Me
            Me.Controls("d" & iloop).ColumnHidden = True
        End With
    Next
    For iloop = 1 To DateNo ' الحلقة تنتهي بعدد ايام الشهر كما تم في المعادلة السابقة
           
           With Me
           Me.Controls("d" & iloop).ColumnHidden = False
            End With
    Next

 

ProgEmp.rar

[حربي العنزي]

استاذي الفاضل AlwaZeeR ربي يخليك يارب 

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