تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج كود لعرض مواعيد محدده بتاريخ
#1
السلام عليكم 


احتاج كود لمعرفة كود المواعيد المحددة بتاريخ اليوم ويوم غداً ولمدة اسبوع قادم 

وعرضها في مسج بوكس


الملفات المرفقة صورة/صور
   

.rar   المواعيد.rar (الحجم : 1.69 م ب / التحميلات : 51)






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة: السندبااد
#2
السلام عليكم

تفضل الكود
كود :
'مواعيد اليوم
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim id As Integer = (
      From x In Me.DeerDataSet.sm
      Where x._date.ToString("yyyy/MM/dd") = Now.Date.ToString("yyyy/MM/dd")
      Select CInt(x.id)
      ).FirstOrDefault

    Me.SmBindingSource.Filter = "[ID] = " & id

End Sub


'مواعيد غداً
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

    Dim id As Integer = (
      From x In Me.DeerDataSet.sm
      Where x._date.ToString("yyyy/MM/dd") = Now.Date.AddDays(1).ToString("yyyy/MM/dd")
      Select CInt(x.id)
      ).FirstOrDefault

    Me.SmBindingSource.Filter = "[ID] = " & id

End Sub


'مواعيد بعد سبعة أيام
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

    Dim ids() As Integer = (
      From x In Me.DeerDataSet.sm
      Where x._date.ToString("yyyy/MM/dd") >= Now.Date.AddDays(7).ToString("yyyy/MM/dd") And
            x._date.ToString("yyyy/MM/dd") < Now.Date.AddDays(14).ToString("yyyy/MM/dd")
      Select CInt(x.id)
      ).ToArray

    Me.SmBindingSource.Filter = "[ID] IN(" & String.Join(",", ids) & ") "

End Sub

'الكل
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Me.SmBindingSource.Filter = Nothing
End Sub
الرد }}}}
تم الشكر بواسطة: sendbad100 , السندبااد
#3
بارك الله فيك ممتاز


ولكن انا احتاجها في مسج بوكس






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة:
#4
تفضل التعديل
كود :
'مواعيد اليوم
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

   Dim q = (
     From x In Me.DeerDataSet.sm
     Where x._date.ToString("yyyy/MM/dd") = Now.Date.ToString("yyyy/MM/dd")
     Select " > " & x.namee
     ).ToArray


   Dim s As String = "لديك هذا اليوم المواعيد التالية:" & vbNewLine &
   String.Join(vbNewLine, q)

   MsgBox(s, MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

End Sub


'مواعيد غداً
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

   Dim q = (
     From x In Me.DeerDataSet.sm
     Where x._date.ToString("yyyy/MM/dd") = Now.Date.AddDays(1).ToString("yyyy/MM/dd")
     Select " > " & x.namee
     ).ToArray


   Dim s As String = "لديك يوم غد المواعيد التالية:" & vbNewLine &
   String.Join(vbNewLine, q)

   MsgBox(s, MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

End Sub


'مواعيد بعد سبعة أيام
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

   Dim q = (
     From x In Me.DeerDataSet.sm
     Where x._date.ToString("yyyy/MM/dd") >= Now.Date.AddDays(7).ToString("yyyy/MM/dd") And
           x._date.ToString("yyyy/MM/dd") < Now.Date.AddDays(14).ToString("yyyy/MM/dd")
     Select " > " & x.namee
     ).ToArray


   Dim s As String = "لديك الأيام السبعة القادمة المواعيد التالية:" & vbNewLine &
   String.Join(vbNewLine, q)

   MsgBox(s, MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

End Sub
الرد }}}}
تم الشكر بواسطة: السندبااد
#5
يا جعلك تسلم ممتاز الله يسعدك في الدارين






[صورة مرفقة: 1469247709311.gif]
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته
ألف شكر لك أخي العزيز مساعدة على هذه الأكواد الرائعة ولكن خطر ببالي سؤال:
ماذا لو أردنا مواعيد الأسبوع المقبل من بدايته لنهايته ؟
مثلاً اليوم ثلاثاء أو أربعاء أو اثنين إلخ وأنا أريد منه أن يعرض لي مواعيد الأسبوع المقبل من السبت للخميس
فاعلم أنه لا إله إلا الله
الرد }}}}
تم الشكر بواسطة: sendbad100
#7
(21-02-17, 10:41 PM)السندبااد كتب :
السلام عليكم ورحمة الله وبركاته
ألف شكر لك أخي العزيز مساعدة على هذه الأكواد الرائعة ولكن خطر ببالي سؤال:
ماذا لو أردنا مواعيد الأسبوع المقبل من بدايته لنهايته ؟
مثلاً اليوم ثلاثاء أو أربعاء أو اثنين إلخ وأنا أريد منه أن يعرض لي مواعيد الأسبوع المقبل من السبت للخميس

الطريقة التي اتبعتها أنا هي كالتالي:

PHP كود :
       Dim startWeek As Integer
        startWeek 
Weekday(NowFirstDayOfWeek.Saturday

والتعديل في كودك هكذا:
PHP كود :
Where x._date.ToString("yyyy/MM/dd") >= Now.Date.AddDays(startWeek).ToString("yyyy/MM/dd") And
 
           x._date.ToString("yyyy/MM/dd") < Now.Date.AddDays(startWeek 6).ToString("yyyy/MM/dd")
 
     Select CInt(x.id
فاعلم أنه لا إله إلا الله
الرد }}}}
تم الشكر بواسطة:
#8
بارك الله فيكم أستاذ السندبااد 


لكل مبرمج طريقته، ولكن الشيء المشترك بين المبرمجين هو الحصول نتيجة واحدة تلبي طلب العميل،


(21-02-17, 10:41 PM)السندبااد كتب : ولكن خطر ببالي سؤال:
ماذا لو أردنا مواعيد الأسبوع المقبل من بدايته لنهايته ؟
مثلاً اليوم ثلاثاء أو أربعاء أو اثنين إلخ وأنا أريد منه أن يعرض لي مواعيد الأسبوع المقبل من السبت للخميس

سؤال ممتاز جداً، وينم عن بعد نظر لمبرمج كبير مثلكم، ما شاء الله


لدي طريقتين لهذا السؤال

الطريقة الأولى معرفة تاريخ السبت القادم، ثم البحث من هذا التاريخ وبين التاريخ الذي يزيد عليه بخمس أيام والذي ينتهي يوم الخميس الذي بعده
كود :
'مواعيد الاسبوع القادم إبتداء من يوم السبت إلى يوم الخميس الذي بعده
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

   ' معرفة تاريخ يوم السبت القادم
   Dim nextSaturdayDate =
       (From x In Enumerable.Range(1, 7)
        Where Today.AddDays(x).DayOfWeek = DayOfWeek.Saturday
        Select Today.AddDays(x)
       ).First

   Dim q =
       (From x In Me.DeerDataSet.sm
        Where x._date.ToString("yyyy/MM/dd") >= nextSaturdayDate.ToString("yyyy/MM/dd") And
        x._date.ToString("yyyy/MM/dd") <= nextSaturdayDate.AddDays(5).ToString("yyyy/MM/dd")
        Select " > " & x.namee
       ).ToArray



   If q.Count > 0 Then
       Dim s As String = "لديك الأسبوع القادم  المواعيد التالية:" & vbNewLine &
       String.Join(vbNewLine, q)

       MsgBox(s, MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

   Else
       MsgBox("لا توجد مواعيد", MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

   End If

End Sub

الطريقة الثانية معرفة تاريخ السبت القادم وتاريخ يوم الخميس الذي بعده، ثم البحث بين هذين التاريخ
كود :
'مواعيد الاسبوع القادم إبتداء من يوم السبت إلى يوم الخميس الذي بعده
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

   ' معرفة تاريخ يوم السبت القادم
   Dim nextSaturdayDate =
       (From x In Enumerable.Range(1, 7)
        Where Today.AddDays(x).DayOfWeek = DayOfWeek.Saturday
        Select Today.AddDays(x)
       ).FirstOrDefault

   ' معرفة تاريخ يوم الخميس بعد يوم السبت القادم
   Dim nextThursdayDate =
       (From x In Enumerable.Range(1, 7)
        Where nextSaturdayDate.AddDays(x).DayOfWeek = DayOfWeek.Thursday
        Select nextSaturdayDate.AddDays(x)
       ).FirstOrDefault

   Dim q = (
         From x In Me.DeerDataSet.sm
         Where x._date.ToString("yyyy/MM/dd") >= nextSaturdayDate.ToString("yyyy/MM/dd") And
               x._date.ToString("yyyy/MM/dd") <= nextThursdayDate.ToString("yyyy/MM/dd")
         Select " > " & x.namee
         ).ToArray

   If q.Count > 0 Then
       Dim s As String = "لديك الأسبوع القادم (من السبت إلى الخميس) المواعيد التالية:" & vbNewLine &
       String.Join(vbNewLine, q)

       MsgBox(s, MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

   Else
       MsgBox("لا توجد مواعيد", MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)

   End If

End Sub


وبالتوفيق للجميع
الرد }}}}
تم الشكر بواسطة: sendbad100 , sendbad100 , السندبااد , السندبااد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] احتاج تعديل الكود "تأكد من الصلاحية" hglogtd 3 109 02-01-18, 01:02 AM
آخر رد: طالب برمجة
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 2 151 27-10-17, 01:52 PM
آخر رد: The Light Fire
  احتاج كود لطباعة الصور المخزنة في الداتا بيز Access sajakh 0 79 14-10-17, 10:33 PM
آخر رد: sajakh
  [سؤال] احتاج مساعده في البحث gnoonplas 9 286 14-10-17, 04:03 PM
آخر رد: Amir_alzubidy
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 183 20-09-17, 04:00 PM
آخر رد: alsouf
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 496 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [كود] احتاج الى تعديل :( MeDo Ly 2 166 25-08-17, 11:41 PM
آخر رد: أبو نوره
  برنامج تذكير برساله بمده محدده hamdyyes 12 653 11-08-17, 01:33 PM
آخر رد: hamdyyes
  [سؤال] استفسار كتابة كود البحث لتحديد بيانات محدده Marwan9990 7 341 04-07-17, 02:36 PM
آخر رد: حريف برمجة
  [سؤال] احتاج الى مساعدة في التحكم في ملف تكست خارجي malek369 1 224 20-06-17, 07:38 AM
آخر رد: سعود

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


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