فيصل الحربي قام بنشر يونيو 20, 2003 قام بنشر يونيو 20, 2003 السلام عليكم ورحمة الله وبركاته أخي العزيز اليكم كود معرفة اول وآخر يوم في الشهر ( بالميلادي ) StartDate = CDate("1/" & DatePart("m", mydate) & "/" & DatePart("yyyy", mydate)) enddate = DateAdd("d", -1, DateAdd("m", 1, StartDate)) Date_Code.zip 1
فتى الوادي قام بنشر أغسطس 9, 2003 قام بنشر أغسطس 9, 2003 السلام عليكم بعد الأستعانة بالله توصلت إلى هذه الكود اللي على قد الحال t0 = Year(Now) & "/" & Month(Now) & "/" & 1 t00 = Year(Now) & "/" & Month(Now) & "/" & 30 حيث أن t0 مربع النص الأول و t00مربع النص الثاني 2
أبو هادي قام بنشر أغسطس 15, 2003 قام بنشر أغسطس 15, 2003 (معدل) السلام عليكم 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 بواسطه محمد طاهر 1
euro_999 قام بنشر مايو 10, 2005 قام بنشر مايو 10, 2005 (معدل) السلام عليكم ورحمة الله وبركاتة السؤال الاول كيف يحدد عدد الايام تاريخ النهاية مثل تاريخ الاصدار 10/5/2005 وعدد الايام خمسة (5) يعني عدد الصلاحية او النهاية والبرنامج يوضع تاريخ النهاية اللى هي 14/5/2005 السؤال الثاني تحديد مده التصريح من 1الى 14 يوم اكثر مده وغير هذا مايقبله البرنامج ولكم مني جزيل الشكر تم تعديل سبتمبر 5, 2005 بواسطه امير عاطف 1
rudwan قام بنشر مايو 11, 2005 قام بنشر مايو 11, 2005 (معدل) استخدم الداله DateAdd على الشكل التالي NewDate=DateAdd("d",5,"IssueDate") حيث IssueDate هي تاريخ الاصدار 5 عدد الأيام المطلوب اضافتها تم تعديل سبتمبر 5, 2005 بواسطه امير عاطف 1
الردود الموصى بها