อยากทราบการแปลงวันที่จาก พ.ศ. เป็น ค.ศ. แล้วหาค่ามาเป็นอายุปัจจุบัน

        Dim a As String = 19910301   
        Dim aY As String = a.Substring(0, 4)
        Dim aM As String = a.Substring(4, 2)
        Dim aD As String = a.Substring(6)

        Dim aNew As String = aY & "/" & aM & "/" & aD

        Dim aValue As Double = 365.25 - CDate(aNew).DayOfYear

        Dim b As Integer = Now.DayOfYear
        Dim bYnow As String = Now.Year

        Dim calYear As Integer = CInt(bYnow) - CInt(aY) - 1

        Dim result As Double = aValue + CDbl(b) + (CDbl(calYear) * 365.25)