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