[سؤال] طرح وقت من وقت - نسخة قابلة للطباعة

كود :

Try



            Dim StartDate As DateTime = "11/05/2012"



            Dim EndDate As DateTime = "08/03/2011"





            'الناتج بالايام

            MsgBox(DateDiff("d", EndDate, StartDate))



            'الناتج بالاشهر

            MsgBox(DateDiff("m", EndDate, StartDate))



            'الناتج بالسنين

            MsgBox(DateDiff("yyyy", EndDate, StartDate))



            '================================================



            ' TimeSpan عملية طرح تاريخين باستخدام 



            Dim Time_Span As TimeSpan = StartDate.Subtract(EndDate)



            'ناتج الطرح بالايام

            MsgBox(Time_Span.Days)



            '=========================



            'اعادة تحويل ناتج الطرح الى ايام واشهر وسنين وساعات ودقائق وثواني



            Dim Date_Time As DateTime = Date.MinValue + Time_Span



            MsgBox((Date_Time.Year - 1).ToString("Yare  00") & (Date_Time.Month - 1).ToString("  Monthe  00") & (Date_Time.Day - 1).ToString("  Day  00") & vbCrLf & (Date_Time.Hour).ToString("  Hour  00") & (Date_Time.Minute).ToString("  Min 00") & (Date_Time.Second).ToString("  Sec  00"))



        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

PHP كود :

Dim dt As DateTime = time.Text
            Dim dt2 As DateTime = TimeOfDay
            Dim subs As TimeSpan = dt2.Subtract(dt)

            Lhou.Text = subs.Hours
            Lmin.Text = subs.Minutes
            Lsec.Text = subs.Seconds

PHP كود :

Dim dt As DateTime = time.Text
            Dim dt2 As DateTime = TimeOfDay
            Dim subs As TimeSpan = dt2.Subtract(dt)
            Dim dt3 As DateTime = Date.MinValue + subs


            '' ''Lhou.Text = subs.Hours
            '' ''Lmin.Text = subs.Minutes


            '' ''Lsec.Text = subs.Seconds
            ' MsgBox((dt3.Year - 1).ToString("Yare  00") & (dt3.Month - 1).ToString("  Monthe  00") & (dt3.Day - 1).ToString("  Day  00") & vbCrLf & (dt3.Hour).ToString("  Hour  00") & (dt3.Minute).ToString("  Min 00") & (dt3.Second).ToString("  Sec  00"))