Menghitung Umur (Tahun, Bulan, Hari)

Berikut merupakan function untuk mengembalikan Umur berdasarkan apa yang diinput oleh user, dengan asumsi bahwa tiap bulan mempunyai 30 hari.

    Function getUmur(ByVal tglLahir As Date) As String

        Dim y, m, d As Integer

        d = Now.Day - tglLahir.Day

        m = Now.Month - tglLahir.Month

        y = Now.Year - tglLahir.Year

        'jika tanggal minus

        'berarti tanggal hari ini

        'lebih kecil dari tanggal lahir

        If Math.Sign(d) = -1 Then 'untuk mengenali jika tanggal dalam bentuk minus

            d = 30 - Math.Abs(d) 'membuat absolut |-2| = 2

            m -= 1

        End If

        If Math.Sign(m) = -1 Then

            m = 12 - Math.Abs(m)

            y -= 1

        End If

        Return y & " tahun, " & m & " bulan, " & d & " hari."

    End Function

Function di atas hanya berupa contoh, dapat dimodifikasi sesuai dengan kebutuhan