ASP.NET รบกวนผู้รู้เรื่องการคำนวนวันที่จาก Textbox ให้ออกมาเป็นระยะเวลาครับ

     Dim nD As System.DateTime = New System.DateTime(CInt(Me.txtYear.Text), _
                                                        CInt(Me.txtMonth.Text), _
                                                        CInt(Me.txtDay.Text), 0, 0, 0)
        Dim cD As System.DateTime = System.DateTime.Now

        Dim tS As System.TimeSpan
        tS = nD.Subtract(cD)
        'tS.Days
        'tS.Hours
        'ค่าต่างๆเป็น Properties ของ tS ลอง Debug ดูครับ

'สร้างตัวแปรเพื่อรับค่า
 Dim d1 As Date = TextBoxBirthDate.Text

'สร้างตัวแปรเพื่อเทียบค่า
 Dim d2 As Date = Now

        'Textbox รับค่า
        TextBoxAge.Text = (DateDiff(DateInterval.Year, d1, d2))
        
        'เปรียบเทียบค่าที่รับมา
        If TextBoxAge.Text >= 1 Then
            TextBoxAge.Text = (DateDiff(DateInterval.Year, d1, d2)) & " ปี"
        Else
            TextBoxAge.Text = (DateDiff(DateInterval.Month, d1, d2)) & " เดือน" & (DateDiff(DateInterval.Day, d1, d2)) & " วัน"
        End If