MENGETAHUI
UMUR
Tutorial kali ini kita
akan membuat program untuk mengetahui umur seseorang hanya dengan mengetikkan
tanggal lahir orang tersebut.
1. Bukalah
program visual basic dan mulailah dengan form baru.
2.
Aktifkan komponen Microsoft Windows Common Cotrol-2 ke dalam Toolbox seperti langkah sebelumnya.
3.
Kemudian masukkan sebuah komponen DTPicker ke dalam area form dan ubahlah
propertis Formatnya menjadi 0-dptLongDate.
4.
Selanjutnya masukkan juga sebuah
komponen Label dan CommandButton sehingga tampilan form seperti
gambar dibawah ini:
5. Setelah
itu klik ganda pada komponen Command1
dan ketiklah perintah di bawah ini:
|
1
2
3
4
5
6
7
8
9
|
Private
Sub Command1_Click()
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
& " Tahuyn " & hari & "hari"
End
Sub
|
Keterangan Kode
Mendeklarasikan
beberapa variabel dengan tipe data integer.
Mengisi
variabel totalhari dengan perintah
untuk mengembalikan selisih waktu antara suatu tanggal dengan tanggal lain
yang memiliki nilai output satuan waktunya berupa hari.
Mengisi
variabel umur dengan pembagian
variabel totalhari dengan nilai
hari dalam satu tahun.
Mengisi
variabel hari dengan nilai sisa
dari pengurangan variabel totalhari dengan hari pada variabel umur. Kemudian menampilkannya ke
dalam sebuah kotak pesan.
|
6. Untuk
melihat hasilnya, tekan tombol F5
pada keyboard anda.
EmoticonEmoticon