[سعود]

PHP كود :

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dt1 As New DateTime
        Dim dt2 As New DateTime

        dt1 = Convert.ToDateTime(TextBox1.Text)
        dt2 = Convert.ToDateTime(TextBox2.Text)

        Dim iYears As Integer, iMonths As Integer, iDays As Integer

        iYears = DateDiff(DateInterval.Year, dt2, dt1)
        iMonths = DateDiff(DateInterval.Month, dt2, dt1)
        iDays = DateDiff(DateInterval.Day, dt2, dt1)
        TextBox3.Text = "Years: " & iYears & " months: " & iMonths & " days: " & iDays
    End Sub
End Class 


---

مع ذلك لا اظن هو المطلوب

---

لقيت الحل
اولا الدالة

PHP كود :

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 


والاستخدام هكذا

PHP كود :

       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))