تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى تقسيم الشهر إلى 3 أقسام
#1
السلام عليكم ورحمة الله وبركاته
فى المرفق يتم تقسيم الشهر حسب الإسبوع
أريده كل 10 بالضبط بمعنى أنه من 1 - 10 قسم
ومن 11- 20 قسم ثانى
ومن 21 ألى 29 أو 28 أو 30 أو 31 (حسب عدد أيام الشهر ) القسم الأخير ثم يتكر فى جميع أشهر السنة


الملفات المرفقة
.rar   date.rar (الحجم : 1.56 ك ب / التحميلات : 39)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السّلام و رحمة الله و بركاته

أهلا أخي الكريم , يرجى التوضيح أكثر , لم أفهم المطلوب بشكل جيد , في المثال شاهدت فقط تكست بوكس واحد .
الرد }}}
تم الشكر بواسطة: السيد الغالي , السيد الغالي
#3
مرحبا أخى

لك الشكر أجزله

نعم تكست واحد عند الكبس على الكوماند يظهر رقم الإسبوع

وحاليا الإسبوع رقم 5 فى شهر يناير

أنا أريده يظهر لى الرقم 3

بمعنى العشرة الأخيرة فى شهر يناير
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , السيد الغالي
#4
السلام عليكم

قد تكود هذه الفكرة هي المطلوبة
كود :
'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
الرد }}}
#5
أهلا , إذا كانت إجابة الإخ "مساعدة" هي ماتريد , فهذا تحويل كوده إلى كود الفيجول بيسك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 
الرد }}}
#6
بارك الله فيك أستاذ Ahmed_Mansoor ، فعلمك وجهودك مشهودة حتى من الزائرين.

لا أدري ما علاقة الأسبوع المذكور في الموضوع، إذا كان المقصود تقسيم أيام الشهر؟
الرد }}}
تم الشكر بواسطة: hsab , السيد الغالي
#7
(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 

جزاك الله خيرا كثيرا وبارك ىك أخى
هو هو ما أطلبه

فقط توجد مشكلة إذا تصادف يوم إستخراج التقرير يوم جمعة أو سبت وهى أيام عطلة

سوف نحتاج إستخراج تقرير العشرة الأيام المنقضية فى وقتها وفى نفس الوقت تسجيل المعلومات يتم للفترة التالية

الفكرة أنه هنالك تدفق لمعلومات تسجل يوميا ويتطلب إستخراج تقرير لها نهاية كل عشرة أيام بحيث لا تتداخل المعلومات فى التقارير
الرد }}}
تم الشكر بواسطة: السيد الغالي
#8
لم أفهم ما المشكلة إذا تصادف يوم إستخراج التقرير يوم جمعة أو سبت

الجمعة القادمة ستكون ان شاء الله يوم 10 فبراير
ماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير فى هذه الجمعة
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم السبت التالى لها(يوم 11 فبراير)
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم الأحد التالى لها(يوم 12 فبراير)

وهناك جمعة أخرى ستكون ان شاء الله يوم 17 فبراير
ماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير فى هذه الجمعة
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم السبت التالى لها(يوم 18 فبراير)
وماذا تريد أن يظهر فى الtxtser ان كان يوم إستخراج التقرير يوم الأحد التالى لها(يوم 19 فبراير)
الرد }}}
تم الشكر بواسطة: السيد الغالي



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم