25-04-13, 10:08 PM
26-04-13, 05:09 PM
وعليكم السلام ورحمة الله وبركاته
ضع 2 ComboBox وCommand على الفورم
وضع الكود التالي
بالتوفيق
ضع 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, 12:49 AM
هذا طلبك ان شاء الله
http://vb4arb.com/vb/uploaded/2508_01367009309.zip
http://vb4arb.com/vb/uploaded/2508_01367009309.zip
27-04-13, 07:23 PM
شكرا لكم جميعا
بارك الله فيكم وجعله في ميزان حسناتكم
بارك الله فيكم وجعله في ميزان حسناتكم
27-04-13, 09:09 PM
السلام عليكم ورحمة الله وبركاته
يمكن وضع الكود الذي وضعه الأخ 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
السلام عليكم ورحمة الله وبركاته
11-05-13, 10:50 AM
الف شكر لكم جميعا
وجزاكم الله خيرا وغفر لنا و لكم ولوالديكم
وجزاكم الله خيرا وغفر لنا و لكم ولوالديكم