OBJEK
|
PROPERTIES
|
VALUE
|
FORM
|
name
|
frmumur
|
Caption
|
Hitung Umur
|
|
BorderStyle
|
2-sizable
|
|
StartUpPosition
|
centerscreen
|
|
MaxButton
|
False
|
|
Label1
|
name
|
Label1
|
caption
|
Format
|
|
Label2
|
Name
|
Label2
|
Caption
|
D-M-yyyy
|
|
Label3
|
Name
|
Label3
|
Caption
|
Tanggal Lahir
|
|
Label4
|
name
|
Label4
|
Caption
|
Tanggal Sekarang
|
|
Label5
|
Name
|
Label5
|
Caption
|
Umurku Dalam Tahun Adalah
|
|
Label6
|
Name
|
Label6
|
Caption
|
Umurku Dalam Bulan Adalah
|
|
Label7
|
Name
|
Label7
|
Caption
|
Umurku Dalam Minggu Adalah
|
|
Label8
|
name
|
Label8
|
caption
|
Umurku Dalam Hari Adalah
|
|
Label9
|
Name
|
Label9
|
Caption
|
Umurku Dalam Jam Adalah
|
|
Label10
|
Name
|
lblTahun
|
Label11
|
Name
|
lblBulan
|
Label12
|
Name
|
lblMinggu
|
Lebel13
|
Name
|
Lblhari
|
Label14
|
Name
|
Lbljam
|
Label15
|
Name
|
Label15
|
Caption
|
Tahun
|
|
Label16
|
Name
|
Label16
|
caption
|
Bulan
|
|
Label17
|
Name
|
Label17
|
Caption
|
Minggu
|
|
Label18
|
Name
|
Label18
|
Caption
|
Hari
|
|
Label19
|
Name
|
Label19
|
Caption
|
Jam
|
|
Timer1
|
Name
|
Timer1
|
Interval
|
100
|
|
Textbox1
|
Name
|
TxtTgl
|
Textbox2
|
name
|
txtsekarang
|
Combobox1
|
name
|
cmbItem
|
Listbox1
|
name
|
lstSumber
|
Listboxt2
|
name
|
lstpilih
|
Command1
|
name
|
cmdTampil
|
caption
|
Tampilkan
|
|
Command2
|
name
|
Cmdkosong
|
caption
|
Kosongkan
|
Kode Program :
Private Sub
cmdKosong_Click()
txtTgl.Text
= ""
txtSekarang.Text
= ""
lblTahun.Caption
= ""
lblBulan.Caption
= ""
lblMinggu.Caption
= ""
lblHari.Caption
= ""
lblJam.Caption
= ""
End Sub
Private Sub
cmdTampil_Click()
If
Len(txtTgl.Text) < 1 Then
MsgBox "Tanggal Lahir Belum
Diisi", vbOKOnly + vbInformation, "Kosong"
Else
tgllahir =
txtTgl.Text
tglskr =
txtSekarang.Text
'======================================================================
lblTahun.Caption
= DateDiff("yyyy", tgllahir, tglskr)
lblBulan.Caption
= DateDiff("M", tgllahir, tglskr)
lblMinggu.Caption
= DateDiff("Ww", tgllahir, tglskr)
lblHari.Caption
= DateDiff("D", tgllahir, tglskr)
lblJam.Caption
= Format(DateDiff("H", tgllahir, tglskr), "###,###,###")
End If
End Sub
Private Sub
Timer1_Timer()
txtSekarang.Text
= Format(Now, "D-M-yyyy")
End Sub
Untuk teman2 yang ingin sewa hosting atau beli domain bisa disini iya : Link
dan gunakan Kode Kupon Berikut : YBNBLOG20 untuk mendapatkan potongan 5%
*KEJUJURAN ADALAH KEBIJAKSANAAN YANG PALING BAIK *
0 Comments