Cara Membuat Penghitung Umur Dengan VB 6.0

Halo Sobat Tutorial VB, Pada tutorial VB ( visual basic ) dasar untuk pemula kali ini kita akan mencoba membuat software atau program menghitung umur  dengan menggunakan VB 6.0 secara mudah dan cepat.

Ok Langsung saja kita mulai tanpa panjang lebar
kita memerlukan component tambahan DTPicker yang sebenarnya telah tersedia di Visual Basic walau secara default component ini belum tampak di deretan tool standarnya. silahkan aktifkan componennya dengan menekan Ctrl + T

Buat desain programnya seperti gambar dibawah ini.

Jika Sudah mendesain seperti gambar di atas masukan code di bawah ini

Private Sub Command1_Click()
    Dim jumlahhari As Integer
    Dim umur As Integer
    Dim hari As Integer

    jumlahhari = DateDiff("d", DTPicker1.Value, Date)
    umur = jumlahhari / 365
    hari = jumlahhari - (umur * 365)
    Text1.Text = umur 
End Sub

Private Sub Command2_Click() 
   End
End Sub

Jika Anda inginkan cara instant bisa download Projectnya Disini

Selamat Mencoba