[ناجي إبراهيم]

السلام عليكم...

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

كود :

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.

نرجو الاستفادة و السلام.