Cara Membuat Program Hitung Umur Menggunakan Visual Basic 6.0

Kali ini saya akan membagikan Cara Membuat Program Hitung Umur Menggunakan Visual Basic 6.0

Download Program Hitung Umur Microsoft Visual Basic 6.0

1. Buka Aplikasi Visual Basic 6.0

2. Desain Form seperti ini



3. Ubah Property

 Form1 - Name - FmHitungUmur
Label1 - Caption - Masukkan Tanggal Lahir Anda
Frame1 - Name - Frame1
Frame2 - Name - Frame2 
Text1 - Name - Text1
Text1 - Name - Text2
Command1 - Name - CmdHitung
Command1 - Caption - Hitung Umur
Command2 - Name - CmdKeluar
Command2 - Caption - Keluar
4. Copy code berikut lalu klik View Code dan pastekan

Dim ExactAgenow As String
Public Function ExactAge(BirthDate As Variant) As String

Dim yer As Integer, mon As Integer, d As Integer
Dim dt As Date
Dim sAns As String

    If Not IsDate(BirthDate) Then Exit Function
    dt = CDate(BirthDate)
    If dt > Now Then Exit Function
   
    yer = Year(dt)
    mon = Month(dt)
    d = Day(dt)
    yer = Year(Date) - yer
    mon = Month(Date) - mon
    d = Day(Date) - d
   
    If Sgn(d) = -1 Then
        d = 30 - Abs(d)
        mon = mon - 1
    End If
   
    If Sgn(mon) = -1 Then
        mon = 12 - Abs(mon)
        yer = yer - 1
    End If
   
sAns = "Umur anda saat ini adalah : " & yer & " _ Tahun " & mon & " _ Bulan " & d & " _ Hari "

ExactAgenow = sAns

End Function

Private Sub CmdHitung_Click()
    ExactAge Text1.Text
    Text2.Text = ExactAgenow
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

5. Jalankan Program dengan menekan F5, maka tampilannya akan seperti ini

Download Program Hitung Umur Microsoft Visual Basic 6.0

SELAMAT MENCOBA...!!!