Membuat Hari, Jam, dan Tanggal di VB6

coding ini digunakan untuk menampilkan Hari, Jam, dan Tanggal di VB6 sesuai dengan Jam, dan Tanggal di komputer, jadi setiap perubahan waktu di komputer tampilan juga akan ikut berubah, tiap detik, menit, jam, hari, bulan, dan tahun.


Ikuti langkah-langkah berikut :

1. Buat project Baru dengan satu form baru
2. Buat 2 Label
3. Buat 1 Timer

Berikut ini contoh gambarnya :

Klik gambar untuk memperbesar

Kemudian copy kan coding berikut :

Dim sHari As String      'Deklarasi variabel global, karena digunakan
Dim aHari                'oleh lebih dari satu prosedur

Private Sub Form_Load()  'Inisialisasi array untuk hari
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", _
                "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500  'Set property interval
  Timer1.Enabled = True  'Aktifkan jika belum...
End Sub

'Prosedur ini meng-update tanggal & jam setiap ada perubahan, baik
'perubahan yang dilakukan melalui Date/Time di menu Control Panel
'maupun perubahan yang terjadi karena pergantian hari/tanggal.
Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))  'Tampilkan hari
  Label1.Caption = "" & sHari & ", " _
                   & Format(Date, "dd mmmm yyyy")
  Label2.Caption = Format(Time, "hh:mm:ss")
End Sub



Setelah selesai di copy sekarang coba tekan F5 untuk menjalankan program tersebut

Selamat mencoba, senang berbagi ilmu untuk sesama.