[ali.alfoly]

السلام عليكم ورحمة الله
لو ذاكرت الكود ده هيفيدك جدا حتي فيما بعد

كود :

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