Aplikasi Menghitung Umur

HITUNG UMUR by Fadly Okfianto Muin

Aplikasi ini terbilang sangat sederhana dan cara membuatnyapun sangat sederhana pula, namun kegunaannya tentu tidak sederhana. Mau bukti ? hehehe…pernahkah anda dating pada suatu instansi pemerintah atau swasta dimana anda ditanya oleh operator tentang berapa umur anda sekarang ? padahal sebelumnya sang operator telah menanyakan tanggal lahir anda atau anda sudah mengisinya didalam formulir (jika ada)…tetapi kadangkala operator atau anda bingung atau agak telat menjawab berapa umur anda atau umur seseorang (jika kebetulan orang itu tidak ada dihadapan kita) secara pasti kendatipun tanggal lahirnya sudah kita ketahui, paling tidak kita membutuhkan waktu barang beberapa saat untuk menghitung umur orang tersebut…

Aplikasi berikut adalah aplikasi yang akan menunjukkan umur akurat seseorang dengan akurasi tahun dan bulan. Yah…hanya untuk iseng-iseng saja, namun mungkin berguna bagi anda yang berprofesi sebagai operator, pembuat daftar gaji pada instansi pemerintah atau panitia test cpns / penerimaan karyawan untuk memastikan seorang pelamar sudah berapa tahun lewat berapa bulan umurnya..hehehe…

Atau paling tidak bagi anda yang kebetulan mahasiswa computer yang ingin sedikit belajar fungsi dan terapan aritmatika serta fungsi string dari MID, LEFT dan RIGHT

Okelah…daripada basa basi terus berikut adalah cara membuat aplikasi menghitung umurnya.

1.       Bukalah sebuah project standart exe dalam visual basic anda.

2.       Rancanglah tampilan form sebagai berikut :

 

Pengaturan properties komponennya adalah sebagai berikut :

Komponen	Properties	Value
Label1	Caption	Tanggal Sekarang
Label2	Caption	Masukkan Tanggal Lahir Anda !
Label3	Caption	Umur Anda Sekarang =
Label4	Caption	Bulan
Label5	Caption	Tahun
Textbox1	Name Text	Txttglskr “  “ (dikosongkan)
Textbox2	Name Text	Txttgllahir “  “ (dikosongkan)
Textbox3	Name Text	Txtumurbln “  “ (dikosongkan)
Textbox4	Name Text	Txtumurthn “  “ (dikosongkan)

3.       Setelah itu masukkan listing lengkap berikut :

Private Sub Form_Activate()

    txttgllahir.SetFocus

End Sub

Private Sub Form_Load()

    txttglskr = Date

End Sub

Private Sub txttgllahir_Change()

    'jika bulan kelahiran diatas bulan sekarang

    If (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)) < 0) Then

        txtumurbln = 12 + (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)))

        txtumurthn = (Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))) - 1

    Else

        txtumurbln = Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2))

        txtumurthn = Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))

    End If

End Sub

Private Sub txtumurbln_Change()

    'jika bulan kelahiran diatas bulan sekarang

    If (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)) < 0) Then

        txtumurbln = 12 + (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)))

        txtumurthn = (Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))) - 1

    Else

        txtumurbln = Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2))

        txtumurthn = Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))

    End If

End Sub

Private Sub txtumurthn_Change()

    'jika bulan kelahiran diatas bulan sekarang

    If (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)) < 0) Then

        txtumurbln = 12 + (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)))

        txtumurthn = (Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))) - 1

    Else

        txtumurbln = Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2))

        txtumurthn = Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))

    End If

End Sub

Cara menjalankan program adalah anda tinggal memasukkan tanggal kelahiran dengan format “dd/mm/yyyy” contoh “12/10/2001” dan program otomatis akan memunculkan umur anda sekarang.

            

Kedepannya tentu anda dapat memodifikasinya hingga akurasi hari. Selamat mencoba dan semoga sukses !