Menghitung usia dengan visual basic 6
Cara Menghitung umur dengan visual basic 6
Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
- 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"
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.
Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
Komentar
Posting Komentar