[سعود]

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

---

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

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim m1 As DateTime = CDate(t1.Text)
       Dim m2 As DateTime = CDate(t2.Text)
       If Format(m1, "HH:mm") > Format(m2, "HH:mm") Then
           Label1.Text = t1.Text
           Label2.Text = t2.Text
       Else
           Label1.Text = t2.Text
           Label2.Text = t1.Text
       End If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim m1 As DateTime = CDate(d1.Text).ToShortDateString
       Dim m2 As DateTime = CDate(d2.Text).ToShortDateString
       If m1 > m2 Then
           La.Text = d1.Text
           Ol.Text = d2.Text
       Else
           La.Text = d2.Text
           Ol.Text = d1.Text
       End If
   End Sub


End Class