[سعود]

لا ادري حين كتبت اول العنوان احسست بشيء من حزن اسال الله ان يفرج هم المهمومين

المهم الموضوع على عجالة

وهذا الكلاس مع الدالة والاجراء

PHP كود :

Public Class Form1

    
    Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String
        Try
            Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
            If toDate = Nothing Then toDate = DateTime.Now

            Do Until toDate.AddYears(-1) < fromDate
                years += 1
                toDate = toDate.AddYears(-1)
            Loop

            Do Until toDate.AddMonths(-1) < fromDate
                months += 1
                toDate = toDate.AddMonths(-1)
            Loop

            Do Until toDate.AddDays(-1) < fromDate
                days += 1
                toDate = toDate.AddDays(-1)
            Loop

            Return String.Format("{0} Years {1} Months {2} Days", years, months, days)
        Catch ex As Exception
            Return "Error"
        End Try
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim doj As New DateTime
        Dim dor As New DateTime
        doj = Convert.ToDateTime(TextBox2.Text)
        dor = Convert.ToDateTime(TextBox1.Text)
        TextBox3.Text = (GetDateSpanText(doj, dor))
    End Sub
End Class