كود معرفة اول وآخر يوم في

[فيصل الحربي]

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

أخي العزيز

اليكم كود معرفة اول وآخر يوم في الشهر ( بالميلادي )

StartDate = CDate("1/" & DatePart("m", mydate) & "/" & DatePart("yyyy", mydate))


enddate = DateAdd("d", -1, DateAdd("m", 1, StartDate))

Date_Code.zip

[فتى الوادي]

السلام عليكم

بعد الأستعانة بالله توصلت إلى هذه الكود اللي على قد الحال

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

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

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

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

[أبو هادي]

السلام عليكم

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

تحياتي .

تم تعديل سبتمبر 3, 2003 بواسطه محمد طاهر

[euro_999]

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

السؤال الاول كيف يحدد عدد الايام تاريخ النهاية مثل تاريخ الاصدار 10/5/2005 وعدد الايام خمسة (5) يعني عدد الصلاحية او النهاية والبرنامج يوضع تاريخ النهاية اللى هي 14/5/2005

السؤال الثاني تحديد مده التصريح من 1الى 14 يوم اكثر مده وغير هذا مايقبله البرنامج

ولكم مني جزيل الشكر

تم تعديل سبتمبر 5, 2005 بواسطه امير عاطف

[rudwan]

استخدم الداله DateAdd على الشكل التالي

NewDate=DateAdd("d",5,"IssueDate")

حيث IssueDate هي تاريخ الاصدار

5 عدد الأيام المطلوب اضافتها

تم تعديل سبتمبر 5, 2005 بواسطه امير عاطف

[euro_999]

مشكووووووور وجزاك الله خير