منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود معرفة عدد ايام اي شهر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب كود معرفة عدد ايام اي شهر (/showthread.php?tid=8637)

طلب كود معرفة عدد ايام اي شهر - w1eg - 25-04-13

[COLOR="#FF0000"][COLOR="#0000FF"]السلام عليكم ورحمة الله

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

مع خالص الشكر[/COLOR][/COLOR]

طلب كود معرفة عدد ايام اي شهر - ALBRNS - 26-04-13

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

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

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

PHP كود :
Private Sub Command1_Click()
Dim m, y, DaysInMonth As Integer
m = Combo1.ListIndex + 1
y = Combo2.Text
DaysInMonth = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1)
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 A = 1 To 2999
Combo2.AddItem A
Next
End Sub 

بالتوفيق

طلب كود معرفة عدد ايام اي شهر - الاصيله - 27-04-13

هذا طلبك ان شاء الله
http://vb4arb.com/vb/uploaded/2508_01367009309.zip

طلب كود معرفة عدد ايام اي شهر - w1eg - 27-04-13

شكرا لكم جميعا
بارك الله فيكم وجعله في ميزان حسناتكم

طلب كود معرفة عدد ايام اي شهر - @@أبورائد@@ - 27-04-13


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



يمكن وضع الكود الذي وضعه الأخ 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(4, 2012))
End Sub

Private Function MonthDays(month As Long, year As Long) As Long
  Select Case month
    Case 2
      If (year Mod 4 = 0) Then MonthDays = 29 Else MonthDays = 28
    Case 4, 6, 9, 11
      MonthDays = 30
    Case Else
      MonthDays = 31
  End Select
End Function 





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

طلب كود معرفة عدد ايام اي شهر - w1eg - 11-05-13

الف شكر لكم جميعا

وجزاكم الله خيرا وغفر لنا و لكم ولوالديكم