تقييم الموضوع :
  • 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
الف شكر لكم جميعا

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة ما اذا كان بالامكان عمل برنامج من دون سكيول سرفر AHMED213 3 813 29-08-13, 12:14 AM
آخر رد: AHMED213
  هل بالامكان معرفة اسم وعنوان الكائن اثناء التشغيل أبوالعباس 1 423 28-08-13, 02:13 PM
آخر رد: أبوالعباس
  برجاء معرفة تشغيل الاداة FPSPR70.ocx WAEL ABED 0 401 26-08-13, 04:23 AM
آخر رد: WAEL ABED
  AccessPass معرفة كلمة سر قواعد البيانات derbaliammar 4 869 03-08-13, 06:21 AM
آخر رد: سعود
  معرفة الفورمات المفتوحة asto 3 526 20-07-13, 05:03 AM
آخر رد: ناجي إبراهيم
  من ايام المنتدى القديم ابحث عن طريقة لمعرفة كم شخص يستخدم برنامجى elhon.tec 5 614 18-05-13, 11:38 AM
آخر رد: abulayth
  معرفة هل المكتوب في التكست حروف ام ارقام مجاهد2010 7 509 18-04-13, 11:43 PM
آخر رد: softmail8

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


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