أول يوم .. وآخر يوم من الشهر الحالي

السلام عليكم

أنا أستفسرت ولم أجد تجاوب .. لكن بعد الأستعانة بالله توصلت إلى هذا الكود :

t0 = Year(Now) & "/" & Month(Now) & "/" & 1

t00 = Year(Now) & "/" & Month(Now) & "/" & 30

حيث أن t0 اسم مربع النص الأول

و t00 اسم مربع النص الثاني

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

أخي العزيز فتى الوادي

عليك بالبحث قبل طرح مشاركة جديده

اليك رابط مطابق لموضوعك .

http://www.arabteam2000.com/vb/showthread....?threadid=17687

========

========

موقع أبو حمود لتعليم الأكسس

http://www.mybiznas.com/access/

السلام عليكم

Sub Test()

  Dim mm As Byte

  Dim yy As Integer

  Dim mmDays As Long

  

  mm = 12

  yy = 1424

    

  '************** للهجري والميلادي **************************

  '-- للحصول على تاريخ نهاية الشهر

  mmDays = IIf(Day(DateSerial(yy, mm + 1, 0)) = 1, _

               DateSerial(yy, mm + 1, -1), _

               DateSerial(yy, mm + 1, 0))

  

  '-- للحصول على طول الشهر

  mmDays = Day(IIf(Day(DateSerial(yy, mm + 1, 0)) = 1, _

               DateSerial(yy, mm + 1, -1), _

               DateSerial(yy, mm + 1, 0)))

  

  

  

  '************** للميلادي فقط *****************************

  '-- للحصول على تاريخ نهاية الشهر

  mmDays = DateSerial(yy, mm + 1, 0)

  

  '-- للحصول على طول الشهر

  mmDays = Day(DateSerial(yy, mm + 1, 0))

  

End Sub

تحياتي .

السلام عليكم

لقد توصلت إلى طريقة مختصرة عن سابقتها وهي كالتالي :

Sub Test()

  Dim mm As Byte

  Dim yy As Integer

  

  mm = 12

  yy = 1424

    

  

  '--  للحصول على تاريخ نهاية الشهر هجري أو ميلادي

  MsgBox CDate(DateSerial(yy, mm + 1, 1) - 1)

  

  '-- للحصول على طول الشهر هجري أو ميلادي

  MsgBox = Day(DateSerial(yy, mm + 1, 1) - 1)

End Sub

تحياتي .