Dedi Supriadi BJR

Membuat Aplikasi Hitung Umur Dengan Visual Basic 6.0

Hallo..!! Kawan-Kawanku Dimanapun Kalian Berada Semoga Semuanya dalam Keadaan Sehat.. Amin..
Baiklah Kawan-kawan disini saya akan sharing source kode untuk menghitung umur.. jadi kawan - kawan tinggal ikutin saja langkah langkahnya dan Source kodenya bisa langsung di Copy Paste.

Oke Kita Langsung saja menuju langkah langkahnya oke..
Langkahnya Sebagai Berikut :

1. Buka Visual Basic 6.0 Kemudian Masukan Component yaitu
    5 Buah Label
    2 Buah CommandButton
    1 Buah Timer
    1 Buah MaskEd

2. Design Form seperti pada gambar di bawah ini:

3. Jika Sidah selesai buat formnya sekarang buatkan 1 buah module kemudian Copy source kode dibawah ini :

Function calculateAge(dateOfBird As Date, fromData As Date) As String
    Dim dateNow, tgl, tgl1 As Date
    Dim years, months, days As Long
    Dim yearWord, monthWord, dayWord As String
    dateNow = fromData
    tgl = dateOfBird
    ' =====================================> Menghitung Hari..
    years = DateDiff("yyyy", tgl, dateNow)
    If Month(tgl) > Month(dateNow) Then
        years = years - 1
    ElseIf Month(tgl) = Month(dateNow) And Day(tgl) > Day(dateNow) Then
        years = years - 1
    ElseIf Month(tgl) = Month(dateNow) And Day(tgl) = Day(dateNow) Then
        GoTo finally
    End If
    ' ====================================> Menghitung Bulan..
    tgl = DateAdd("yyyy", years, tgl)
    months = DateDiff("m", tgl, dateNow)
    If Day(tgl) > Day(dateNow) Then
        months = months - 1
    ElseIf Month(tgl) = Month(dateNow) And Day(tgl) >= Day(dateNow) Then
        months = months - 1
    End If
    tgl = DateAdd("m", months, tgl)
    ' ====================================> Menghitung hari
    days = DateDiff("d", tgl, dateNow)
    ' ====================================> Jika Sama Maka Akan Kosong...
finally:
    yearWord = IIf(years = 0, "", years & " Tahun ")
    monthWord = IIf(months = 0, "", months & " Bulan ")
    dayWord = IIf(days = 0, "", days & " Hari ")
    calculateAge = yearWord & monthWord & dayWord
    calculateAge = Trim(calculateAge)
End Function

Silahkan kawan save modulnya..

4. selanjutnya pada form1 ya sudah dibuat tadi klick duak kali (Double Klick) pada command1
Lalu masukan coding berikut ini :

Private Sub Command1_Click()
If MaskEdBox1.Text = "__/__/____" Then
MsgBox "Silahkan Masukan Tanggal Lahir Anda..!!", vbCritical, "Peringatan..!!!"
MaskEdBox1.SetFocus
Exit Sub
End If
    Dim strMsg As String
    strMsg = calculateAge(MaskEdBox1.Text, Label4.Caption)
    Label3.Caption = strMsg
End Sub

5. Double klick pada Timer1 dan masukan Coding berikut ini:

Private Sub Timer1_Timer()
Label4.Caption = Format(Date, "dd/MM/yyyy")
End Sub

6. Double klisk pada Command2 (Costum) Kemudian Masukan coding berikut:

Private Sub Command2_Click()
If MaskEdBox1.Text = "__/__/____" Then
MsgBox "Silahkan Masukan Tanggal Lahir Anda..!!", vbCritical, "Peringatan..!!!"
MaskEdBox1.SetFocus
Exit Sub
End If
Form2.Show
End Sub

7. Terakhir Anda Buat 1 forim lagi dengan Component sebagai berikut :

2 buah Label, 1 Buah CommandButton dan 1 buah MaskEd Lalu Deign Seperti Gambar di bawah ini:

8. Kemudian Double Klick Pada Form2 pada Command1 (Hitung) lalu masukan Coding berikut ini :

Private Sub Command2_Click()
If MaskEdBox1.Text = "__/__/____" Then
MsgBox "Mau di Hitung sampai Kapan.? Silahkan Isi Dulu..!!", vbCritical, "Peringatan..!!!"
MaskEdBox1.SetFocus
Exit Sub
End If
    Dim strMsg As String
    strMsg = calculateAge(Form1.MaskEdBox1.Text, Me.MaskEdBox1.Text)
    Form1.Label3.Caption = strMsg
    Unload Me
End Sub

SELESAI ......
Silahkan ada jalankan Projectnya.
Semoga Berhasil..