تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود معرفة عدد ايام اي شهر
#1
[COLOR="#FF0000"][COLOR="#0000FF"]السلام عليكم ورحمة الله

برجاء اريد كود معرفة عدد ايام اي شهر

مع خالص الشكر[/COLOR][/COLOR]
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

ضع 2 ComboBox وCommand على الفورم

وضع الكود التالي

PHP كود :
Private Sub Command1_Click()
Dim myDaysInMonth As Integer
Combo1.ListIndex 1
Combo2.Text
DaysInMonth 
DateSerial(y11) - DateSerial(ym1)
MsgBox DaysInMonth
End Sub
Private Sub Form_Load()
Combo1.Text "اختر الشهر"
Combo2.Text "اختر السنة"
Combo1.AddItem "يناير"
Combo1.AddItem "فبراير"
Combo1.AddItem "مارس"
Combo1.AddItem "ابريل"
Combo1.AddItem "مايو"
Combo1.AddItem "يونيو"
Combo1.AddItem "يوليو"
Combo1.AddItem "اغسطس"
Combo1.AddItem "سبتمبر"
Combo1.AddItem "اكتوبر"
Combo1.AddItem "نوفمبر"
Combo1.AddItem "ديسمبر"
For 1 To 2999
Combo2
.AddItem A
Next
End Sub 

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
هذا طلبك ان شاء الله
http://vb4arb.com/vb/uploaded/2508_01367009309.zip
الرد }}}
تم الشكر بواسطة:
#4
شكرا لكم جميعا
بارك الله فيكم وجعله في ميزان حسناتكم
الرد }}}
تم الشكر بواسطة:
#5

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



يمكن وضع الكود الذي وضعه الأخ ALBRNS داخل دالة كاتالي

كود :
Private Sub Command1_Click()
   MsgBox (DaysInMonth(1, 2012))
End Sub

Private Function DaysInMonth(month As Long, year As Long) As Long
    DaysInMonth = DateSerial(year, month + 1, 1) - DateSerial(year, month, 1)
End Function



ووجدت لك دالة MonthDays إن شاء الله تكون مفيدة

PHP كود :
Private Sub Command1_Click()
   
MsgBox(MonthDays(42012))
End Sub

Private Function MonthDays(month As Longyear As Long) As Long
  Select 
Case month
    
Case 2
      
If (year Mod 4 0Then MonthDays 29 Else MonthDays 28
    
Case 46911
      MonthDays 
30
    
Case Else
      
MonthDays 31
  End Select
End 
Function 





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#6
الف شكر لكم جميعا

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



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


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