Program menghitung umur seseorang dengan Visual Basic

Di posting kali ini saya akan menjelaskan cara menghitung umur seseorang, dimana umur didapat dari tahun sekarang - tahun lahir.

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

2.   2. Buatlah model seperti yang di tampilkan seperti 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.