+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احتاج كود لعرض مواعيد محدده بتاريخ (/showthread.php?tid=19343)
احتاج كود لعرض مواعيد محدده بتاريخ - hglogtd - 20-02-17
السلام عليكم
احتاج كود لمعرفة كود المواعيد المحددة بتاريخ اليوم ويوم غداً ولمدة اسبوع قادم
وعرضها في مسج بوكس
RE: احتاج كود لعرض مواعيد محدده بتاريخ - مساعدة - 21-02-17
السلام عليكم
تفضل الكود
كود :
'مواعيد اليوم
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 SubRE: احتاج كود لعرض مواعيد محدده بتاريخ - hglogtd - 21-02-17
بارك الله فيك ممتاز
ولكن انا احتاجها في مسج بوكس
RE: احتاج كود لعرض مواعيد محدده بتاريخ - مساعدة - 21-02-17
تفضل التعديل
كود :
'مواعيد اليوم
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 SubRE: احتاج كود لعرض مواعيد محدده بتاريخ - hglogtd - 21-02-17
يا جعلك تسلم ممتاز الله يسعدك في الدارين
RE: احتاج كود لعرض مواعيد محدده بتاريخ - السندبااد - 21-02-17
السلام عليكم ورحمة الله وبركاته
ألف شكر لك أخي العزيز مساعدة على هذه الأكواد الرائعة ولكن خطر ببالي سؤال:
ماذا لو أردنا مواعيد الأسبوع المقبل من بدايته لنهايته ؟
مثلاً اليوم ثلاثاء أو أربعاء أو اثنين إلخ وأنا أريد منه أن يعرض لي مواعيد الأسبوع المقبل من السبت للخميس
RE: احتاج كود لعرض مواعيد محدده بتاريخ - السندبااد - 21-02-17
(21-02-17, 10:41 PM)السندبااد كتب :السلام عليكم ورحمة الله وبركاتهألف شكر لك أخي العزيز مساعدة على هذه الأكواد الرائعة ولكن خطر ببالي سؤال:ماذا لو أردنا مواعيد الأسبوع المقبل من بدايته لنهايته ؟مثلاً اليوم ثلاثاء أو أربعاء أو اثنين إلخ وأنا أريد منه أن يعرض لي مواعيد الأسبوع المقبل من السبت للخميس
الطريقة التي اتبعتها أنا هي كالتالي:
PHP كود :
Dim startWeek As Integer
startWeek = 8 - Weekday(Now, FirstDayOfWeek.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)
RE: احتاج كود لعرض مواعيد محدده بتاريخ - مساعدة - 22-02-17
بارك الله فيكم أستاذ السندبااد
لكل مبرمج طريقته، ولكن الشيء المشترك بين المبرمجين هو الحصول نتيجة واحدة تلبي طلب العميل،
(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وبالتوفيق للجميع