15-06-18, 02:45 AM
15-06-18, 03:18 AM
هذا الكود به ما تريد
كود :
Dim TheYear As Integer = Today.Date.Year
Dim TheMonth As Integer = Today.Date.Month
Dim monthstart As Date = New Date(TheYear, TheMonth, 1)
Dim monthend As Date = New Date(TheYear, TheMonth, Date.DaysInMonth(TheMonth, TheMonth))
Dim yearstart As Date = New Date(TheYear, 1, 1)
Dim yearend As Date = New Date(TheYear, 12, 31)15-06-18, 03:20 AM
لماذا التكرار اخى الكريم من اجل اعادة رفع الصورة
الرجاء متابعة فى موضوع واحد
حيث ان جميع الموضوع الذى قمت باضافتها
تتحدث على شئ واحد مع الاختلاف اذا كان اسبوع او شهر او سنة
فبدلاً من جعل الاعضاء التى تريد ان تساعد بالعناء
من اعادة كتابة الاكواد من جديد والبحث عنها
فسيكون من السهل على اى عضو عند الدخول
ويجد انك تريد كود اخر عن الشهر بدلاً من الاسبوع
فكل ما سيفعله تعديل كلمة واحدة فى نفس الكود
فتخيل بدلاً من الانتظار حتى من يرد عليك
ستجد الكثير من سيرد باسرع وقت وبالكود
فالرجاء ثم الرجاء
بدرة من كثرة المواضيع التى لا تفيد نفعاً
ان تقوم بموضوع واحد وتعطي مساحة للاخرين
ان تظهر مواضيعهم فى قسم الاسئلة
الرجاء المتابعة فى الموضوع الاخر فتم الرد بالكود
تحياتى لك
وتمنياتى لك التوفيق