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


الملفات المرفقة
.rar   date.rar (الحجم : 1.56 ك ب / التحميلات : 21)
الرد
تم الشكر بواسطة:
#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 فبراير)
الرد
تم الشكر بواسطة: السيد الغالي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تحزيم المشروع VB6 عبد الرحمان البسكري 14 592 15-04-17, 11:01 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 261 10-04-17, 01:45 PM
آخر رد: Amir_alzubidy
  مساعدة بخصوص Listview haniblack 2 336 28-03-17, 06:21 PM
آخر رد: Amir_alzubidy
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 709 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 382 30-08-16, 09:37 AM
آخر رد: sher
  picture box مساعدة بخصوص اداة ابو مهدي 2 592 21-08-16, 01:40 PM
آخر رد: ابو مهدي
  [vb6.0] مساعدة من اهل الخبرة sher 2 498 21-07-16, 12:24 PM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة لتخطي هذه المشكلة sher 1 421 18-07-16, 03:10 PM
آخر رد: Amir_alzubidy
  مساعدة في تصميم برنامج صغير (طرة وكتبة) starwarr2005 2 580 22-05-16, 01:42 PM
آخر رد: starwarr2005
Question [كود] مساعدة فى كود برنامج اتصال برودباند mangawy 2 2,383 13-04-16, 11:03 AM
آخر رد: MicroDoha

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


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