Membuat Kalender Dengan Vb 6.0
Buatlah
Form Seperti Dibawah Ini:

Klik
Dua Kali Pada Timer,Lalu Ketiklah Listing Dibawah Ini:
Private Sub Timer1_Timer()
Dim hari_ini As Variant
hari_ini = Now
Label2.Caption = Format(hari_ini,
"dddd")
label3.Caption = Format(hari_ini,
"hh:mm:ss")
Label4.Caption = Format(hari_ini,
"MMMM")
Label6.Caption = Format(hari_ini,
"YYYY")
Label5.Caption = Format(hari_ini,
"d")
End Sub
Tampilan
Setelah Dijalankan:
Program
ini dibuat oleh Heri Afrizal di bireuen
Komentar
Posting Komentar
Tulis komentar anda disini.....