Memvalidasi Format Tanggal di Control Panel PC dengan VB6.0

Memvalidasi Format Tanggal di Control Panel PC dengan VB6

Tanggal merupakan bagian penting yang barada pada sistem operasi windows yang kita bisa atur formatnya lewat control Panel yang berada pada kategori Language and Region.

Pada program Visual Basic kitapun bisa mengaturnya dengan berbagai macam format tanggal yang disediakan Visual Basic 6.0 misalnya dengan format “yyyy/mm/dd” dimana format ini terdiri dari tahun, bulan dan tanggal dengan cara menampilkan Linguage and Region seperti yang ada pada control Panel.

Untuk mengaplikasikan dan menerapakannya dalam visual Basic perhatikan langkah-langkah berikut dibawah ini :

Cara Validasi Format Tanggal di Control Panel dengan VB6.0

Buka Form VB6 anda

Double klik di area form kosong

Buatlah Sub_Function dengan nama  ValidasiTanggal kemudian ketik kode seperti dibawah ini :

Sub ValidasiTanggal()

Dim CekTanggal As String

Dim J, Pesan As Byte

Ulangi:

CekTanggal = Date

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

   J = MsgBox("Ubah Format tanggal jadi yyyy/mm/dd di Control Panel, Regional Settings", 64 + vbYesNo, "Cek Tanggal")

      If J = vbYes And CekTanggal <> Format(Date, "yyyy/mm/dd") Then

         Shell "rundll32.exe shell32.dll," & "Control_RunDLL INTL.CPL,,4", 1

      Else

        End

      End If

 Pesan = MsgBox("Format Tanggal Sudah diganti..?", vbYesNo + 64, "Konfirmasi")

 If Pesan = vbYes Then

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

       GoTo Ulangi

    Else

       GoTo Ulangi

    End If

 Else

    GoTo Ulangi

 End If

End If

End Sub

Setelah membuat kode function,panggilah kode tersebut di bawa kode Private Sub Form_Load()

Private Sub Form_Load()

Call ValidasiTanggal

End Sub

Setelah itu coba jalankan dengan menekan F5, Jika format tanggal yang ada pada komputer Anda sama dengan format pada kode VB maka tampilan form akan kosong, jika format tanggal yang disetting pada komputer Anda berbeda, maka yang pertama kali akan tampil seperti gambar dibawah ini :

Gambar 1 : Format yyyy/mm/dd

Jika pada gambar diatas anda klik yes maka akan muncul Region and Linguage seperti gambar dibawah ini :

Gambar 2 : Region and Linguage

Pada gambar diatas klik Additional Setting kemudian kemudian pilih Date lalu rubah formatnya yang sesuai pada kode di VB yang barusan kita buat.Lihat pada Gambar 1 untuk penulisan formatnya.

Demikian arikel kali ini tentang Validasi Format Tanggal di Control Panel PC dengan VB6,semoga artikel ini bermanfaat buat kita semua

Related Post: Date/Time