Menghitung Umur Dengan VB net

Buka Visual Studionya, bikin project Windows Form Application (Bahasa VB.net). Masukan DateTimePicker dan TextBox, Lalu masukan kode berikut:

Private Sub DateTimePicker1_ValueChanged() Handles DateTimePicker1.ValueChanged

        Dim Birth As Date = DateTimePicker1.Value

        Dim tahun, bulan, hari As Integer

        While tahun <= (Now.Year - Birth.Year)

            While bulan <= (Now.Month - Birth.Month)

                '   If Now.Day >= Birth.Day Then

                'hari = 0

                ' Else

                While hari <= (Now.Day - Birth.Day)

                    hari += 1

                End While

                ' End If

                bulan += 1

            End While

            tahun += 1

        End While

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

        TextBox1.Text = tahun & " tahun " & bulan & " bulan " & hari & " hari"

    End Sub

 Coba deh buat menghitung umur kamu,, pas apa ga..