السلام عليكم ورحمة الله وبركاته
فى المرفق يتم تقسيم الشهر حسب الإسبوع
أريده كل 10 بالضبط بمعنى أنه من 1 - 10 قسم
ومن 11- 20 قسم ثانى
ومن 21 ألى 29 أو 28 أو 30 أو 31 (حسب عدد أيام الشهر ) القسم الأخير ثم يتكر فى جميع أشهر السنة
'Dim day As Integer = Now.Day ' معرفة اليوم من الشهر
'Dim p As Integer = 3 ' قيمة افتراضية القسم الثالث
'If day < 21 Then p = 2 ' إذا كان القسم الثاني
'If day < 11 Then p = 1 ' إذا كان القسم الاول
'MsgBox(p)
حسب ما فهمت
أن تكون الأيام العشرة الأول من الشهر يظهر رقم 1
والأيام العشرة الثانية من الشهر يظهر رقم 2
وبقية أيام الشهر يظهر رقم 3
29-01-17, 06:24 PM (آخر تعديل لهذه المشاركة : 29-01-17, 06:31 PM {2} بواسطة hsab.)
(29-01-17, 04:58 PM)مساعدة كتب : بارك الله فيك أستاذ Ahmed_Mansoor ، فعلمك وجهودك مشهودة حتى من الزائرين.
لا أدري ما علاقة الأسبوع المذكور في الموضوع، إذا كان المقصود تقسيم أيام الشهر؟
بارك الله فيك وجزيت خيرا
كل ما فى الأمر يوجد تقرير إدارى يستخرج كل أسبوع وكان الأمر سالك وتمام
مؤخرا تم تغيير النظام المعمول به وتقرر تقديم التقرير كل 10 أيام
فقط رأسى شبك وما قدرت أتصرف
(29-01-17, 04:08 PM)Ahmed_Mansoor كتب : أهلا , إذا كانت إجابة الإخ "مساعدة" هي ماتريد , فهذا تحويل كوده إلى كود الفيجول بيسك6 :
PHP كود :
Private Sub Command1_Click()
Dim CurrentDay As Integer Dim PartNumber As Integer
CurrentDay = Day(Date)
PartNumber = 3
If CurrentDay < 21 Then PartNumber = 2 If CurrentDay < 11 Then PartNumber = 1
txtser.Text = PartNumber
End Sub
جزاك الله خيرا كثيرا وبارك ىك أخى
هو هو ما أطلبه
فقط توجد مشكلة إذا تصادف يوم إستخراج التقرير يوم جمعة أو سبت وهى أيام عطلة
سوف نحتاج إستخراج تقرير العشرة الأيام المنقضية فى وقتها وفى نفس الوقت تسجيل المعلومات يتم للفترة التالية
الفكرة أنه هنالك تدفق لمعلومات تسجل يوميا ويتطلب إستخراج تقرير لها نهاية كل عشرة أيام بحيث لا تتداخل المعلومات فى التقارير
06-02-17, 10:39 PM (آخر تعديل لهذه المشاركة : 06-02-17, 10:40 PM {2} بواسطة اسلام الكبابى.)
لم أفهم ما المشكلة إذا تصادف يوم إستخراج التقرير يوم جمعة أو سبت
الجمعة القادمة ستكون ان شاء الله يوم 10 فبراير
ماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير فى هذه الجمعة
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم السبت التالى لها(يوم 11 فبراير)
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم الأحد التالى لها(يوم 12 فبراير)
وهناك جمعة أخرى ستكون ان شاء الله يوم 17 فبراير
ماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير فى هذه الجمعة
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم السبت التالى لها(يوم 18 فبراير)
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم الأحد التالى لها(يوم 19 فبراير)