Subscribe:

Friday, November 12, 2010

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

2 comments:

Anonymous said...

siip keren pake fungsi abs()

Gortap Lumbantoruan said...

Mantap gan, terimakasih banyak sudah sangat membantu