Menghitung Usia (HARI,BULAN,TAHUN) VB.NET V 2010

Untuk menhitung berapa usia seseorang yang di hitung dari tanggal lahir dan menghasilkan rincian(hari,bulan,tahun).
kodenya adalah sebagai berikut:

 Public Function HIT_UMUR(ByVal umur As Date, ByRef hasil As String)
        Dim tahun As Integer, bulan As Integer, hari As Integer

        While tahun <= (Date.Now.Year - umur.Year)

            While bulan <= (Date.Now.Month - umur.Month)

                While hari <= (Date.Now.Day - umur.Day)

                    hari = hari + 1

                End While

                bulan = bulan + 1

            End While

            tahun = tahun + 1

        End While



        tahun -= 1 : bulan -= 1 : hari -= 1


        If bulan <= 0 Then
            bulan = 0
        ElseIf hari <= 0 Then

            hari = 0

        End If

        hasil = tahun & " Tahun " & bulan & " Bulan " & hari & " hari"

    End Function