[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم
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

بالتوفيق