Visual Basic : Aplikasi Menghitung Umur

SUMBER !!

Hmmm...berapa umur anda sekarang?umur saya 29 tahun, yah kalo segitu saya juga tahu hehehe... Kali ini kita akan membuat aplikasi kecil seh untuk menghitung umur anda sekarang, tidak cuman tahunnya saja melainkan sekalian harinya.

Pada aplikasi kali ini kita membutuhkan komponen DTPicker dimana untuk mengaktifkan komponen DTPicker tersebut maka kita terlebih dahulu harus mencentang komponen Micr*soft Wind*ws Common Controls-2 6.0 sehingga komponen DTPicker akan terlihat dalam barisan Toolbox.

Oke nggak usah lama-lama, mari kita buat aplikasi ini :

• Bukalah Micr*soft Visual Basic anda kemudian pilihlah StandardEXE;
• Ganti Caption pada form1 menjadi Aplikasi Menghitung Umur Anda, seperti gambar dibawah ini :

• Aktifkan Micr*soft Wind*ws Common Control-2 6.0 dengan cara menekan Ctrl+T untuk menampilkan Component, kemudian cari ke bawah sampai menemukan  Micr*soft Wind*ws Common Control-2 6.0 lalu klik Apply. Setelah itu lihatlah pada deretan Toolbox maka akan terdapat tambahan lima Tools salah satunya adalah DTPicker;

• Kemudian masukkan sebuah komponen DTPicker ke form1 dan ubahlah properties Format menjadi 0-dtpLongDate, untuk ukuran DTPicker tergantung selera;

• Untuk tambahan masukkan komponen Label dan komponen CommandButton sebagai eksekutor perintah. Ganti caption pada Label1 menjadi "Tanggal Lahir Saya" dan caption pada CommandButton1 menjadi "Hitung Umur Saya", sehingga jadi seperti di bawah ini :

• Klik 2x pada Command1 dan masukkan source code dibawah ini :

  Dim totalhari As Integer
  Dim umur As Integer
  Dim hari As Integer

  totalhari = DateDiff("d", DTPicker1.Value, Date)
  umur = totalhari / 365
  hari = totalhari - (umur * 365)
  MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"

• Selesai.
• Untuk melihat hasilnya, tekan Run atau tombol F5. Sekian tutorial kali ini semoga bermannfaat yah ^_^
• SUMBER !!