السلام عليكم ورحمة الله وبركاته
فى المرفق يتم تقسيم الشهر حسب الإسبوع
أريده كل 10 بالضبط بمعنى أنه من 1 - 10 قسم
ومن 11- 20 قسم ثانى
ومن 21 ألى 29 أو 28 أو 30 أو 31 (حسب عدد أيام الشهر ) القسم الأخير ثم يتكر فى جميع أشهر السنة
وعليكم السّلام و رحمة الله و بركاته
أهلا أخي الكريم , يرجى التوضيح أكثر , لم أفهم المطلوب بشكل جيد , في المثال شاهدت فقط تكست بوكس واحد .
مرحبا أخى
لك الشكر أجزله
نعم تكست واحد عند الكبس على الكوماند يظهر رقم الإسبوع
وحاليا الإسبوع رقم 5 فى شهر يناير
أنا أريده يظهر لى الرقم 3
بمعنى العشرة الأخيرة فى شهر يناير
السلام عليكم
قد تكود هذه الفكرة هي المطلوبة
كود :
'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
أهلا , إذا كانت إجابة الإخ "مساعدة" هي ماتريد , فهذا تحويل كوده إلى كود الفيجول بيسك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
بارك الله فيك أستاذ Ahmed_Mansoor ، فعلمك وجهودك مشهودة حتى من الزائرين.
لا أدري ما علاقة الأسبوع المذكور في الموضوع، إذا كان المقصود تقسيم أيام الشهر؟
(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
جزاك الله خيرا كثيرا وبارك ىك أخى
هو هو ما أطلبه
فقط توجد مشكلة إذا تصادف يوم إستخراج التقرير يوم جمعة أو سبت وهى أيام عطلة
سوف نحتاج إستخراج تقرير العشرة الأيام المنقضية فى وقتها وفى نفس الوقت تسجيل المعلومات يتم للفترة التالية
الفكرة أنه هنالك تدفق لمعلومات تسجل يوميا ويتطلب إستخراج تقرير لها نهاية كل عشرة أيام بحيث لا تتداخل المعلومات فى التقارير
لم أفهم ما المشكلة إذا تصادف يوم إستخراج التقرير يوم جمعة أو سبت
الجمعة القادمة ستكون ان شاء الله يوم 10 فبراير
ماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير فى هذه الجمعة
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم السبت التالى لها(يوم 11 فبراير)
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم الأحد التالى لها(يوم 12 فبراير)
وهناك جمعة أخرى ستكون ان شاء الله يوم 17 فبراير
ماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير فى هذه الجمعة
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم السبت التالى لها(يوم 18 فبراير)
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم الأحد التالى لها(يوم 19 فبراير)