Menyesuaikan Format Date Komputer Dengan Format Date Program/Aplikasi

Berikut ini adalah contoh jika Anda menginginkan agar format tanggal komputer harus sesuai dengan format tanggal di program yang anda buat di visual basic 6, untuk mempraktekannya siapkan :

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

          'Dalam contoh ini, kita anggap bahwa konvensi format tanggal di
          'komputer yang menggunakan program ini harus sama dengan format
          'dd/mm/yyyy'. Jika tidak, maka program akan "memaksa" User untuk
          'menyesuaikan terlebih dulu format tanggal di komputernya dengan
          'format tersebut, barulah program dapat dijalankan...

          Private Sub Form_Load()
            Timer1.Interval = 500  'Set property intervalnya
            Timer1.Enabled = True  'Aktifkan jika belum...
          End Sub

          Sub PeriksaTanggal()
          Dim CekTanggal As String
          Ulangi:

            CekTanggal = Date  'Tampung tanggal dalam bentuk string
            'Lakukan pemeriksaan format tanggal tersebut...
            If CekTanggal <> Format(Date, "dd/mm/yyyy") Then
               'Jika formatnya tidak sama dengan 'dd/mm/yyyy',
               'tampilkan pesan berikut...

               If MsgBox("Format tanggal di komputer Anda tidak sama dengan" & vbCrLf & _
                     "'dd/mm/yyyy'. Klik OK untuk mengganti melalui menu" & vbCrLf & _
                     "Regional Settings pada tab Date di kotak isian" & vbCrLf & _
                     "'Short Date Style'. Ganti menjadi format:" & vbCrLf & _

                     "dd/mm/yyyy. Jika Anda tidak melakukannya, maka" & vbCrLf & _
                     "program tidak dapat dijalankan!", _
                     vbCritical + vbOKCancel, _
                     "Format Tanggal Tidak Sama Dengan 'dd/mm/yyyy'") _

                     = vbOK And CekTanggal <> Format(Date, "dd/mm/yyyy") Then
                  'Tampilkan Regional Settings dari program, dan
                  'langsung ke tab Date (Tab indeks ke-4)...
                  Call Shell("rundll32.exe shell32.dll," & _
                             "Control_RunDLL INTL.CPL,,4", 1)

               Else
                  End  'Jika tdk mau mengganti, langsung keluar program...
               End If
               If MsgBox("Apakah Anda sudah selesai menggantinya?" & vbCrLf & _

                         "Klik Yes jika format sudah dd/mm/yyyy" & vbCrLf & _
                         "atau klik No jika belum.", _
                         vbQuestion + vbYesNo, "Ubah Tanggal") = vbYes Then

                  'Periksa lagi, apakah sudah diganti oleh User?
                  If CekTanggal <> Format(Date, "dd/mm/yyyy") Then GoTo Ulangi

               Else 'Jika belum juga, kembali lagi dari awal di atas
                  GoTo Ulangi
               End If
            End If
          End Sub

          'Jika sebelumnya format tanggal sudah 'dd/mm/yyyy', Anda
          'dapat mengubahnya dengan mengklik tombol Command1.
          'Perhatikan reaksi apa yang terjadi dari program setelah

          'Anda mengubah format tanggal menjadi format yg tidak
          'sesuai dengan 'dd/mm/yyyy'
          'Atau Anda juga dapat mengubah formatnya dari Control
          'Panel, dan perhatikan juga bagaimana reaksi program!!!

          Private Sub Command1_Click()
            Call Shell("rundll32.exe shell32.dll," & _
                       "Control_RunDLL INTL.CPL,,4", 1)
          End Sub

          'Anda mungkin bertanya, mengapa kita memeriksa format
          'tanggal di prosedur Timer1_Timer selain di prosedur
          'Form_Load di atas?

          'Jawabnya tidak lain adalah untuk mengantisipasi jika pada
          'saat program dijalankan, dilakukan perubahan format
          'tanggal melalui menu Regional Settings di Control Panel

          'oleh user atau melalui Command1 yang ada di program,
          'maka ketika program diaktifkan kembali format tanggal
          'menjadi sudah tidak sama lagi dengan 'dd/mm/yyyy'
          'sehingga harus dilakukan pemeriksaan kembali setiap saat
          'program diaktifkan melalui bantuan Timer1 yang dapat

          'refresh setiap saat...

          Private Sub Timer1_Timer()
            If CekTanggal <> Format(Date, "dd/mm/yyyy") Then

               PeriksaTanggal
            Else
               Exit Sub  'Timer1 harus tetap aktif...
            End If

          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