Menghitung Umur dengan vb.net 2010

Jika ingin menghitung umur dengan rincian tahun,bulan,dan hari misal
saya lahir pada tahun 24-09-1989 dan sekarang adalah tahun 29-09-2014 maka umur saya adalah:
 "25 tahun 0 bulan 5 hari".

Iklan

berikut ini adalah kode vb.net 2010 :


 Public Function hit_tanggal(ByVal awal As Date, ByVal akhir As Date, ByRef hasil As String)
        Dim tahun, bulan

        tahun = akhir.Year - awal.Year
        bulan = akhir.Month - awal.Month

        If System.Math.Sign(bulan) <= 0 Then

            bulan = 12 - System.Math.Abs(bulan)

            tahun = tahun - 1

        End If
        hasil = tahun & " Tahun " & bulan & " Bulan"
    End Function