[khattabcosmology]

الأخ أحمد النجار
أشكرك على الشرح الوافي
للأسف هذه المشكلة تم حلها بإستخدام مكتبة مصممة للعمل على بيئة سي شارب .
قمت بتحويل الأكواد والتصحيح فيها ثم تحميل المكتبة بداخل المشروع.
إسم المكتبة : ITenso.timeperiod
الأكواد بعد التعديل كالأتي :

كود :

Imports System
Imports Itenso.TimePeriod


Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ' Date_Time_Intersections
       Dim periods As TimePeriodCollection = New TimePeriodCollection()
       periods.Add(New TimeRange(New DateTime(2011, 3, 1), New DateTime(2011, 3, 10)))
       periods.Add(New TimeRange(New DateTime(2011, 3, 5), New DateTime(2011, 3, 15)))
       periods.Add(New TimeRange(New DateTime(2011, 3, 12), New DateTime(2011, 3, 18)))
       periods.Add(New TimeRange(New DateTime(2011, 3, 20), New DateTime(2011, 3, 24)))
       periods.Add(New TimeRange(New DateTime(2011, 3, 22), New DateTime(2011, 3, 28)))
       periods.Add(New TimeRange(New DateTime(2011, 3, 24), New DateTime(2011, 3, 26)))
       Dim periodIntersector As TimePeriodIntersector(Of TimeRange) = New TimePeriodIntersector(Of TimeRange)()

       Dim intersectedPeriods As ITimePeriodCollection = periodIntersector.IntersectPeriods(periods)

       For Each intersectedPeriod As ITimePeriod In intersectedPeriods



           ListBox1.Items.Add(intersectedPeriod)
         

       Next

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       'Date_Gapes
       Dim limits As TimeRange = New TimeRange(New DateTime(2011, 3, 1), New DateTime(2011, 3, 20))
       Dim gapCalculator As TimeGapCalculator(Of TimeRange) = New TimeGapCalculator(Of TimeRange)()

       Dim excludePeriods As TimePeriodCollection = New TimePeriodCollection()
       excludePeriods.Add(New TimeRange(New DateTime(2011, 3, 10), New DateTime(2011, 3, 15)))
       excludePeriods.Add(New TimeRange(New DateTime(2011, 3, 12), New DateTime(2011, 3, 17)))


       Dim gaps As ITimePeriodCollection = gapCalculator.GetGaps(excludePeriods, limits)

       For Each GetGaps As ITimePeriod In gaps

           ListBox1.Items.Add(GetGaps)
         
       Next
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       'Date_Time_Gaps
       Dim limits As TimeRange = New TimeRange(New DateTime(2011, 3, 1, 0, 0, 0), New DateTime(2011, 3, 1, 23, 59, 59))
       Dim gapCalculator As TimeGapCalculator(Of TimeRange) = New TimeGapCalculator(Of TimeRange)()

       Dim excludePeriods As TimePeriodCollection = New TimePeriodCollection()
       excludePeriods.Add(New TimeRange(New DateTime(2011, 3, 1, 8, 0, 0), New DateTime(2011, 3, 1, 12, 30, 0)))
       excludePeriods.Add(New TimeRange(New DateTime(2011, 3, 1, 10, 0, 0), New DateTime(2011, 3, 1, 13, 0, 0)))


       Dim gaps As ITimePeriodCollection = gapCalculator.GetGaps(excludePeriods, limits)

       For Each GetGaps As ITimePeriod In gaps

           ListBox1.Items.Add(GetGaps)

       Next
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       'Time_Gaps
       Dim limits As TimeRange = New TimeRange(TimeSerial(0, 0, 0), TimeSerial(23, 59, 59))
       Dim gapCalculator As TimeGapCalculator(Of TimeRange) = New TimeGapCalculator(Of TimeRange)()

       Dim excludePeriods As TimePeriodCollection = New TimePeriodCollection()
       excludePeriods.Add(New TimeRange(TimeSerial(8, 0, 0), TimeSerial(12, 30, 0)))
       excludePeriods.Add(New TimeRange(TimeSerial(10, 0, 0), TimeSerial(13, 0, 0)))


       Dim gaps As ITimePeriodCollection = gapCalculator.GetGaps(excludePeriods, limits)

       For Each GetGaps As ITimePeriod In gaps

           ListBox1.Items.Add(GetGaps)

       Next
   End Sub
End Class

ألف شكر وأتمنى أن يستفيد الجميع من هذا الكود