+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39231)
فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك - العيدروس - 04-08-21
السلام عليكم.اخواني رجاء المساعدة.عندي بالجدول حقل للتاريخ و حقل لتوقيت البداية و توقيت نهاية الموعد.اريد عندما اضغط على زر الامر يقوم بفحص الحجدول بحيث لا يمكن اختيار نفس التاريخ و نفس توقيت البداية و النهاية .يعني لما يكون التاريخ و التوقيت به حجز لا يمكن لي الحجز بنفس الموعد و نفس التوقيت ما عرفت كيف اضبط هذا الجزء بارك الله فيكم
كود :
If Dt = Dr.Item(0) And Time_Begin >= Real_Begin ThenRE: فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك - ابراهيم ايبو - 04-08-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم العيدروس
اعتقد ان المواعيد المحجوزة مسجلة في جدول وهنا سنبحث عنها
لكن انتبه للداتا تابل التي تجلب كل البيانات يجب ان تكون معرفة على مستوى الكلاس لتكون مرئية في حدث التحقق حتى نبحث في صفوفها
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For i As Integer = 0 To dt.Rows.Count - 1
If CDate(dt.Rows(i).Item("CV_BirthDay")) >= DateTimePicker1.Value Then
MsgBox("هذا الموعد محجوز")
End If
Next
End SubRE: فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك - العيدروس - 04-08-21
أشكرك جزيل الشكر أخ ابراهيم .الفكرة هي صالة أفراح .. العقبى لنا جميعا و يا رب يجعل أيامنا و ليالينا كلها أفراح ان شاء الله و يتم حجز المواعد .. يعني الحجز بالساعات و ادخل توقيت البداية و توقيت النهاية بالداتتيمر بيكر 1 للبداية و الداتبيكر 2 لتوقيت النهاية اريد لو اجي اعمل حجز في هذا التوقيت بين داتبيكر 1 و 2 تظهرلي رسالة بارك الله فيك اخي
RE: فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك - ابراهيم ايبو - 04-08-21
اخي الكريم العيدروس
لسا بحاجة الى موعد البداية يكفي موعد النهاية للمقارنة به مع DateTimePecker
اختر الموعد منها وقم بالتحقق عبر حلقة فور على حقل المواعيد
الا اذا كان لديك فجوات في المواعيد هذه الان خطرت في بالي هنا تحتاج الى 2 DateTimePicker
واحد للبداية والاخر للنهاية
كود :
For i As Integer = 0 To dt.Rows.Count - 1
If CDate(dt.Rows(i).Item("CV_Day")) >= DateTimePicker1.Value And CDate(dt.Rows(i).Item("CV_Day")) <= DateTimePicker2.Valueand Then
MsgBox("هذا الموعد محجوز")
End If
NextRE: فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك - العيدروس - 04-08-21
الله يجبر بخاطرك اخ ابراهيم المحترم مشى الحال بفضل الله ثم فضلك اشكرك جزيل الشكر و بارك الله فيك و انعم عليك