AutoChange DateTime Format VB6

Berikut ini adalah cara membuat autochange format datetime di visual basic 6, misalnya jika ada merubah datetime dari menu Control Panel atau perubahan terjadi karena pergantian hari dan tanggal (lewat tengah malam), nah agar perubahan tersebut juga terjadi di program Anda secara otomatis, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 2 Label, dan 1 Timer.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module