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

اخواني الافاضل انا الان لدي مشكلة لا اعرف كيف احلها

انا الان املك فترتين زمنيتين ،، لكل فتره عدد 2 تيكست بوكس لادخال التاريخ

الفترة الاول لها تاريخ بداية وتاريخ نهاية

والفترة الثانية لها تاريخ بداية وتاريخ نهاية


لنفترض انني وضعت الفترة الاولى هذين التاريخين
البداية 15/9/2013 والنهاية 20/9/2013

و الفترة الثانية كانت كذلك
البداية 19/9/2013 والنهاية 30/9/2013


اريد ان تظهر رساله لانه كما تلاحظون الفترة الثانية تعارضت مع الفتره الاولى بيوم واحد


ياريت لو تساعدوني فى تطبيق الكود
الرد }}}}
تم الشكر بواسطة:
#2
ماهي المشكلة لو كل فترة بمثابة عمود في جدول؟
يعني جدول مثلا باسم tbl_first_time يحتوي عمودين :البداية والنهاية
وكذلك بالنسبة للجدول الاخر...اعتذر لو اني فهمت خطا.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: Mido9
#3
(25-10-13, 09:46 AM)سعود كتب : ماهي المشكلة لو كل فترة بمثابة عمود في جدول؟
يعني جدول مثلا باسم tbl_first_time يحتوي عمودين :البداية والنهاية
وكذلك بالنسبة للجدول الاخر...اعتذر لو اني فهمت خطا.


ربنا يكرمك على محاولتك لمساعدتي شكرا لك

بصراحة لم افهم كيف سأستطيع التحقق من تعارض التواريخ لو وضعت كل تاريخ فى عمود



انا سأشرح لك الفكره مره اخرى

الان انا لدي قاعدة بيانات اسجل فيها دورات الموظفين

بمعنى الاخ سعود سيحصل على دوره شبكات خلال الفتره من 5/9/2013 حتى 29/9/2013

الان اريد ان ارشحك لدورة اخرى ،، فأريد ان يظهر رساله لو كانت تتعارض مع الدورة الاخرى

يعني مثلاً لو هارشحك هذه لدورة برمجة فى الفترة من 25/9/2013 حتى 10/10/2013

ستجد ان التواريخ تعارضت و الان انت ستحضر دورتين فى نفس الفترة لانه تم التعارض فى الايام التاليه (25/26/27/28/29) بين الدورتين


إن شاء الله تكون وضحت الفكره اكتر

وشاكر لك مساعدتك
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم
1- ضع أداتي مربع نص
2- ضع أداة زر
3- ثم قم بإضافة هذا الكود:

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim New_Date(3) As Date
        TextBox1.Text = "البداية 15/9/2013 والنهاية 20/9/2013"
        Dim Reg As MatchCollection = Regex.Matches(TextBox1.Text, "\d{1,2}/\d{1,2}/\d{4}")
        For I As Integer = 0 To Reg.Count - 1
            Dim SpliDate As String() = Reg.Item(I).Value.Split("/")
            New_Date(I) = New Date(Val(SpliDate(2)), Val(SpliDate(1)), Val(SpliDate(0)), New System.Globalization.GregorianCalendar)
        Next
        TextBox2.Text = "البداية 19/9/2013 والنهاية 30/9/2013"
        Reg = Regex.Matches(TextBox2.Text, "\d{1,2}/\d{1,2}/\d{4}")
        For I As Integer = 0 To Reg.Count - 1
            Dim SpliDate As String() = Reg.Item(I).Value.Split("/")
            New_Date(I + 2) = New Date(Val(SpliDate(2)), Val(SpliDate(1)), Val(SpliDate(0)), New System.Globalization.GregorianCalendar)
        Next
        If New_Date(2) < New_Date(1) Then
            MsgBox("هناك تداخل بين التاريخين ومقداره:" & (New_Date(1) - New_Date(2)).TotalDays)
        End If
    End Sub

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#5
جزاك الله خيرا اخي الفاضل بارك الله فيك

ولكن فى مشكلة
وهي عند وضع الاكواد ظهرت الاخطاء التالية

   


وجزاك الله عنا خيراً

السلام عليكم ,,

تم حل الـ Error بوضع الـ Imports System.Text.RegularExpressions


ولكن لدي إستفسار ..

الان يجب كتابة القيمتين فى التيكست بوكس الاول و القيمتين فى التيكست بوكس الثاني


هل يمكن عمل عدد 4 تيكست بوكس ,, وجعل التيكست بوكس رقم 1 خاص ببداية الفترة الثانية والتيكست بوكس رقم 2 خاص بنهاية الفترة الاولى

والتيكست بوكس رقم 3 لبداية الفترة الثانية و التيكست بوكس رقم 4 يكون لنهاية الفترة الثانية ؟


وجزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم...

بالنسبة إلى اختبار التعارض يمكننا إنشاء دالة لهذا الغرض:

كود :
Public Module DateServices
    Public Structure SDateInterval
        Dim StartDate As Date    ' تاريخ بداية الفترة
        Dim EndDate As Date     ' تاريخ نهاية الفترة
    End Structure

    ' دالة الاختبار
    Public Function IntervalConflict(ByVal Period1 As SDateInterval, ByVal Period2 As SDateInterval) As Boolean
        If ((Period1.StartDate >= Period2.StartDate) And (Period1.StartDate <= Period2.EndDate)) Or _
                ((Period1.EndDate >= Period2.StartDate) And (Period1.EndDate <= Period2.EndDate)) Then
            Return True    ' تعارض
        Else
            Return False    ' لا يوجد تعارض
        End If
    End Function
End Module

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Period1 As SDateInterval
        Dim Period2 As SDateInterval

        ' القيم التالية للتجربة - يمكن قراءتها من مربعات نص أو غيرها
        Period1.StartDate = #10/1/2013#
        Period1.EndDate = #10/15/2013#
        Period2.StartDate = #10/13/2013#
        Period2.EndDate = #10/28/2013#

        If IntervalConflict(Period2, Period1) Then
            MsgBox("Conflicts")
        Else
            MsgBox("No conflict")
        End If
    End Sub
End Class

* لا يهم ترتيب الفترتين عند استدعاء الدالة.

بالنسبة إلى طريقة إدخال القيم فإنه يمكنك استعمال مربعات النص أو DateTimePicker.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: سعود , Mido9


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة كبيرة فى طريح تاريخين من بعض عشان يجيبلى عدد الدقايق مابين التاريخين دول araxis 8 153 27-10-16, 08:23 PM
آخر رد: ممدوح
  البحث بين تاريخين عن طريق المعالج أسامة السالمي 9 265 14-10-16, 08:18 AM
آخر رد: ممدوح
  ازاى اعد عدد الصفوف عند البحث بين تاريخين araxis 1 88 10-10-16, 10:15 PM
آخر رد: ابراهيم النعيمي
  ما هو الخطاء فى كود الاستعلام بين تاريخين السيد الجوهري 3 110 10-10-16, 09:03 AM
آخر رد: ممدوح
Question [VB.NET] كيف اضع لمستخدم رساله في حال اسم المستخدم وكلمة المرور غير صيحه ؟؟ Microformt 2 134 22-08-16, 09:28 PM
آخر رد: سعود
  كود بحث بين تاريخين adooolah2011 4 166 26-07-16, 12:13 AM
آخر رد: adooolah2011
  الفرق بين تاريخين makky 3 189 24-07-16, 12:23 AM
آخر رد: الوادي
  [VB.NET] الفرق بين تاريخين في DataGridView bumb 2 441 06-04-16, 01:25 AM
آخر رد: hassan
  [VB.NET] عمل رساله تاكيد للحذف رومنس الشوق 2 210 01-04-16, 11:08 PM
آخر رد: رومنس الشوق
  [VB.NET] شباب عند برمجة كود اعادة الترقيم تظهر لى رساله احمد عبد الحكيم 1 456 08-02-16, 08:22 PM
آخر رد: احمد عبد الحكيم

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


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